Select Code to Download

perl -MData::Dumper -lanF'\|' -e '$p{$F[0]}=[@F[1..$#F]]}END{print Dum
+per \%p' abcd

#!/usr/bin/perl
my %p;
...

use Data::Dumper;
print Dumper \%p;