my $head = shift @array;
my @tail = @array