Sample program as follow

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);
[download]