in reply to How can I split a hash into other N hashes

If you want N of something, using an array to store them suggests itself to me.... but not to you! Updated to be more in line with OP.

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
$|++;

my $numOfHashes = 5;
my $hashref = {
          '6712' => {
                      'IP_ADDRESS' => '1.2.3.44',
                      'IPV6' => '0',
                      'IP_ADDRESS_BIN' => '000000000000000000000000000
+000000000000',
                      'CSX_ID' => '6712'
                    },
          '6582' => {
                      'IP_ADDRESS' => '1.2.3.44',
                      'IPV6' => '0',
                      'IP_ADDRESS_BIN' => '000000000000000000000000000
+000000000000',
                      'CSX_ID' => '6582'
                    },
          '6282' => {
                      'IP_ADDRESS' => '1.2.3.44',
                      'IPV6' => '0',
                      'IP_ADDRESS_BIN' => '000000000000000000000000000
+000000000000',
                      'CSX_ID' => '6282'
                    },
          '6462' => {
                      'IP_ADDRESS' => '1.2.3.44',
                      'IPV6' => '0',
                      'IP_ADDRESS_BIN' => '000000000000000000000000000
+000000000000',
                      'CSX_ID' => '6462'
                    },
          '16712' => {
                      'IP_ADDRESS' => '1.2.3.44',
                      'IPV6' => '0',
                      'IP_ADDRESS_BIN' => '000000000000000000000000000
+000000000000',
                      'CSX_ID' => '6712'
                    },
          '26582' => {
                      'IP_ADDRESS' => '1.2.3.44',
                      'IPV6' => '0',
                      'IP_ADDRESS_BIN' => '000000000000000000000000000
+000000000000',
                      'CSX_ID' => '6582'
                    },
          '36282' => {
                      'IP_ADDRESS' => '1.2.3.44',
                      'IPV6' => '0',
                      'IP_ADDRESS_BIN' => '000000000000000000000000000
+000000000000',
                      'CSX_ID' => '6282'
                    },
          '46462' => {
                      'IP_ADDRESS' => '1.2.3.44',
                      'IPV6' => '0',
                      'IP_ADDRESS_BIN' => '000000000000000000000000000
+000000000000',
                      'CSX_ID' => '6462'
                    },
          '96182' => {
                      'IP_ADDRESS' => '9.0.0.0',
                      'IPV6' => '0',
                      'IP_ADDRESS_BIN' => '000000000000000000000000000
+000000000000',
                      'CSX_ID' => '6182'
                    }

  };

my $keys = keys %{$hashref};
my $worker;

print "Original Hash Keys: $keys\n";
my $i=0;
foreach my $key ( keys %{$hashref} ) {
        $worker->{$i++}{$key} = $hashref->{$key};
        $i %= $numOfHashes;
}
print Dumper($worker);

[download]

Output:

Original Hash Keys: 9
$VAR1 = {
          '4' => {
                   '36282' => {
                                'IP_ADDRESS' => '1.2.3.44',
                                'CSX_ID' => '6282',
                                'IPV6' => '0',
                                'IP_ADDRESS_BIN' => '00000000000000000
+0000000000000000000000'
                              }
                 },
          '1' => {
                   '6582' => {
                               'IP_ADDRESS' => '1.2.3.44',
                               'CSX_ID' => '6582',
                               'IPV6' => '0',
                               'IP_ADDRESS_BIN' => '000000000000000000
+000000000000000000000'
                             },
                   '46462' => {
                                'IP_ADDRESS' => '1.2.3.44',
                                'CSX_ID' => '6462',
                                'IPV6' => '0',
                                'IP_ADDRESS_BIN' => '00000000000000000
+0000000000000000000000'
                              }
                 },
          '3' => {
                   '6282' => {
                               'IP_ADDRESS' => '1.2.3.44',
                               'CSX_ID' => '6282',
                               'IPV6' => '0',
                               'IP_ADDRESS_BIN' => '000000000000000000
+000000000000000000000'
                             },
                   '96182' => {
                                'IP_ADDRESS' => '9.0.0.0',
                                'CSX_ID' => '6182',
                                'IPV6' => '0',
                                'IP_ADDRESS_BIN' => '00000000000000000
+0000000000000000000000'
                              }
                 },
          '0' => {
                   '16712' => {
                                'IP_ADDRESS' => '1.2.3.44',
                                'CSX_ID' => '6712',
                                'IPV6' => '0',
                                'IP_ADDRESS_BIN' => '00000000000000000
+0000000000000000000000'
                              },
                   '6462' => {
                               'IP_ADDRESS' => '1.2.3.44',
                               'CSX_ID' => '6462',
                               'IPV6' => '0',
                               'IP_ADDRESS_BIN' => '000000000000000000
+000000000000000000000'
                             }
                 },
          '2' => {
                   '6712' => {
                               'IP_ADDRESS' => '1.2.3.44',
                               'CSX_ID' => '6712',
                               'IPV6' => '0',
                               'IP_ADDRESS_BIN' => '000000000000000000
+000000000000000000000'
                             },
                   '26582' => {
                                'IP_ADDRESS' => '1.2.3.44',
                                'CSX_ID' => '6582',
                                'IPV6' => '0',
                                'IP_ADDRESS_BIN' => '00000000000000000
+0000000000000000000000'
                              }
                 }
        };

[download]
1 Peter 4:10

Replies are listed 'Best First'.
Re^2: How can I split a hash into other N hashes
by ataX (Initiate) on May 13, 2014 at 16:52 UTC
    Thanks for the array suggestion, it seems cleaner than using if and else. Thanks for your help!
[reply]

      Array version, reprise:

      my $keys = keys %{$hashref};
my @AoH;
print "Original Hash Keys: $keys\n";
my $i=0;
foreach my $key ( keys %{$hashref} ) {
        $AoH[$i++]{$key} = $hashref->{$key};
        $i %= $numOfHashes;
}
print Dumper(@AoH);

      [download]
      1 Peter 4:10
[reply]
[d/l]

In Section Seekers of Perl Wisdom