for my $key ( keys %Cars ) {
    printf "%10.10s: %s\n\n", $key,
        join "\n            ", map{
            "$_ drives $Cars{ $key }"
        } @{ $Names{ $key }{name} };
};;

Washington: Eric drives Honda
            Smith drives Honda

California: John drives BMW
            Paddy drives BMW
            Josh drives BMW