use strict; use warnings; use Data::Dumper; my (@string, $length, $half); my (@arr1, @arr2); @string = ( 9,1,6,3 ); @arr1 = splice(@string,0,scalar(@string)/2); print Dumper(\@arr1); print Dumper(\@string);