Scalar value @lines[$#lines] better written as $lines[$#lines]