my $first_line = $array[0];
# or
my $first_line = shift @array; # This is destructive to @array.