foreach my $key( keys %uid ){
   if( $uid{$key}{'firstname'} eq 'Alice' ){
      print "lastname is $uid{$key}{'lastname'}\n";
   }
}