Select Code to Download

16:51 >perl 786_SoPW.pl
Total keys are 5
...
        ];

16:51 >

#! perl
use strict;
...
}

print 'Array of hashes: ', pp(\@array_of_hashes), "\n";

16:54 >perl 786_SoPW.pl
Initial hash: { 1 => "a", 2 => "b", 3 => "c", 4 => "d", 5 => "e" }
Array of hashes: [{ 1 => "a", 2 => "b" }, { 3 => "c", 4 => "d" }, { 5 
+=> "e" }]

16:55 >