fetchrow_array

my (@TO) = &get_user_list($dbh);

foreach $to1 (@TO){
   print "$to1\n";
}

sub get_user_list() {

   ...
   my($list, @USER);
   while ( $list = $sth->fetchrow_array() ){
      push(@USER,$list);
   }
  $sth->finish();
   return @USER;
}