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