Why? It can't be condensed in any useful fashion (especially without losing the comma), but it can be made more flexible. Consider:

my @items = (0, 1);

printf "%s\n", join ', ', map {$_->{car}} @array[@items];
[download]

Prints:

ford, honda
[download]