print "Fetching values for $addr\n"; while (my @row = $stm->fetchrow_array){ print " Got values: ", join( ':', @row ), "\n"; push (@results, @row); } $stm->finish; print "Finished getting values, printing \@results for $addr:\n"; print join ':', @results; print "\n\n";