Select Code to Download

use strict;
use warnings;
...
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p
aa,bb,cc,dd,ee,ff,gg,hh,ii,jj,kk,ll,mm,nn,oo,pp
aaa,abb,acc,add,aee,aff,agg,ahh,aii,ajj,akk,all,amm,ann,aoo,app

HASH(0x1824898)
HASH(0x224fb4)
...
                  }
        };

use strict;
use warnings;
...
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p
aa,bb,cc,dd,ee,ff,gg,hh,ii,jj,kk,ll,mm,nn,oo,pp
aaa,abb,acc,add,aee,aff,agg,ahh,aii,ajj,akk,all,amm,ann,aoo,app

HASH(0x182485c)
HASH(0x182485c)
...
          'aaa' => $VAR1->{'a'},
          'aa' => $VAR1->{'a'}
        };

use warnings;
use Data::Dumper;
...
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p
aa,bb,cc,dd,ee,ff,gg,hh,ii,jj,kk,ll,mm,nn,oo,pp
aaa,abb,acc,add,aee,aff,agg,ahh,aii,ajj,akk,all,amm,ann,aoo,app

HASH(0x18248bc)
HASH(0x18248bc)
...
          'aaa' => $VAR1->{'a'},
          'aa' => $VAR1->{'a'}
        };