while (my ($identifier)=$sth->fetchrow_array ) {

##</code><code>##

   my $sth=$dbh->prepare(qq{
      SELECT name,
             state,
             phone
      FROM user
   });
   $sth->execute();
   while (my ($name, $state, $phone)=$sth->fetchrow_array ) {
     ### now you can use $name, $state, and $phone ###
     print "User name:  $name\n";
     print "     state: $state\n";
     print "     phone: $phone\n";
   }

   $sth->finish;