my($scalar, @restofarray) = @array;

##</code><code>##

my $scalar = shift(@array);