# @array evaluated in list context.
my ($first) = @array;