fetchrow_hashref

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

foreach my $hash (@M_ID){
   $id = $hash->{m_id};
   $id = $hash->{m_email};
}

sub get_user_list() {

   ....
    my(@M_ID);
    while(my $data=$sth->fetchrow_hashref()){
        push(@M_ID,$data);
    }
    $sth->finish();
    return @M_ID;
}