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
In reply to Re: looping multidimensional arrays
by BrowserUk
in thread looping multidimensional arrays
by sunil9009
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |