Select Code to Download

perl -e 'print<<EOF
1 2 3
...
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)'