Select Code to Download

#!/usr/bin/perl

...
print Dumper \%t;

print "***************\n"

#!/usr/bin/perl

...

print "***************\n"

$VAR1 = {
          'c' => 'C',
...
          'c' => 'C',
          'e' => 'E'
        };

 perl -e 'my %t=qw(a A b B c C d D e E); print join("", %t) . "\n"'

eEcCaAbBdD