Select Code to Download

# scalar returns the number of elements in an array
my $n = scalar(@aSomeNumbers);
my $n1=int($n/2);
my $n2=$n-$n1;

# $n%2 will be 1 if $n is odd and 0 if $n is even.
my $n=scalar(@aSomeNumbers);
...
   $n1=($n+1)/2;
   $n2=$n-$n1;
}