Select Code to Download

#!/usr/bin/perl -w
 
...
    printf "\nDump of hash as an array => %s\n", Dumper(\@array);
    as_hash(@array);
}

Dump of hash as a hash => $VAR1 = {
          'e' => [
...
        };
 
hash{i}{J} = 'K'