my @res = (1..4);
$res[1] = [ 1, 'Gold', 100 ];
$res[2] = [ 2, 'Holz', 100];
$res[3] = [ 3, 'Stein', 100];
$res[4] = [ 4, 'Eisen', 100];