#!/usr/bin/env perl
use strict;
use warnings;
use Data::Printer;
use Array::Split qw( split_into );

my @original = (1,2,3,4,5,6,7,8,9);
my $numberofarrays = 2;
my @arrayrefs = split_into($numberofarrays,@original);