my ( $first_line ) = @array;