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