for my $key (keys %names){
for my $key2(keys $names{$key}){
if ($names{$key}{$key2}[0] = 'Gay'){
print "Last Name:".$names{$key}{$key2}[1]."\n";
}
}
}