#!/usr/bin/perl

use strict;
use warnings;

my @array = 1 .. 14;

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

for my $i (0 .. (BINS - 1)) {
  push @bins, [@array[grep {defined $array[$_]}
		      map {BINS * $_ + $i} 0 .. (@array / BINS)]];
}

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