foreach $addr (@addr){ $addr_lookup = "SELECT u2addr.id FROM u2addr WHERE u2addr.addr = \"$addr\";"; $stm = $dbh->prepare($addr_lookup); $stm->execute; @results=(); @row=(); while (my @row = $stm->fetchrow_array){ push (@results, @row); }#end of while $stm->finish; print $results[-1]; }