for my $i(keys %friends) { print $i if ($friends{$i}{eyes} eq "brown" && $i =~ /^J/); }