while (@dbrow = $sth->fetchrow_array()) { print "0:$dbrow[0], 1:$dbrow[1], 2:$dbrow[2]\n"; push @feld_prices, \@dbrow; } for $b (0..$#feld_prices) { print "$feld_prices[$b][1]\n"; }