Don't know if there are other ways. But in this case cog uses the first line to extract the 'Perl' word and that's why the code needs it.