my( $head, @tail ) = @array;

##</code><code>##

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