#! perl
use strict;
use warnings;
use Data::Dump      qw( pp );
use List::MoreUtils qw( natatime );

my  $i    = 1;
my  %hash = map { $i++ => $_ } 'a' .. 'e';
print 'Initial hash: ', pp(\%hash), "\n";

my $it = natatime 2, sort { $a <=> $b } keys %hash;
my @array_of_hashes;

while (my @keys = $it->())
{
    my %new_hash = map { ( $_, $hash{$_} ) } @keys;
    push @array_of_hashes, \%new_hash;
}

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