Select Code to Download

$ cat pm_11140211_flatfile.dat
head1|head2|head3
...
val6|val4|val5
val2|val7|val5
val3|val7|val3

$ perl -e '
    use Data::Dump;
...
    dd \%z;
'
{ a => 1, b => 2, c => 3, d => 4 }

#!/usr/bin/env perl

...
}

print "$_: ", join(', ', sort keys %{$data{$_}}), "\n" for sort @cols;

head1: val1, val2, val3, val6
head2: val2, val4, val7
head3: val3, val5