perl -e 'print<<EOF
1 2 3
a b c
d e f
g h i
EOF
'  | perl -MData::Dumper -lane '1==$. and @h=@F and next;my $i; push @
+{$v{$h[$i++]}},$_ for @F}{print Dumper(\%v)'
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.