Select Code to Download

my %uid =(
   1 => {
      'firstname' => 'Alice',
...
      'lastname'  => 'Bar',
   },
);

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