my $scalar = shift(@array);