given ($line_entry[$i])
{
    when ($_ ~~ @INDEX_PAGE)
    {
        $INDEX_PAGE_COUNT++;
    }
    when ($_ =~ m/@HELP_PAGE/)
    {
        $HELP_PAGE_COUNT++;
    }
}