#!/usr/bin/perl

use strict;
use warnings;

my @array = 1 .. 14;

use constant BINS => 4;
my @bins = ();

for my $i (0 .. $#array) {
  print "i = $i:\t$array[$i]\n";
  push @{$bins[$i % BINS]}, $array[$i];
}

use Data::Dumper;
print Dumper \@bins;