#!/usr/bin/perl

use warnings;
use strict;

my @a = (1..12864);

&chunky(@a);


sub chunky {
    my %master;
   	my @temp;
	
	my @input = @_;
	my $chunks = int(scalar(@_)/100);
	
	my $carryOver=0;
	my $tipping;
	my $i;
	my $k;
	my $keyed;
	for($i=1;$i<=$chunks;$i++){
		$tipping = $carryOver+100;
		for($k=$carryOver;$k<=$tipping;$k++){
			push(@temp,$input[$k]);
			if($k==$tipping){ $carryOver=$k;}
		}
		$keyed = $i." key";
		$master{$keyed}=@temp;
		undef @temp;
		undef $keyed;
	}   	
   
   foreach my $key (sort keys %master){
   	print $key."\n";
   	
   	foreach( @{$master{$key}} ){
   			print $_."\t";
   		}
   		print "\n";
   	}
   	
   	
}