use warnings;
use strict;

use List::Util qw/first/;

my %INDEX_PAGE = map {$_=>1} '/','/index.html';
my @HELP_PAGE = map {qr/^\Q$_\E/} '/help.html';
my @line_entry = ('/help.html','/index.html','/help.html?ri=all');

for my $le (@line_entry) {
    if (exists $INDEX_PAGE{$le})
        { print "$le is an index page\n" }
    elsif (first {$le=~$_} @HELP_PAGE)
        { print "$le is a help page\n" }
    else
        { print "$le is unknown\n" }
}

# Output:
# /help.html is a help page
# /index.html is an index page
# /help.html?ri=all is a help page
[download]

• For the exact match, I'm using a hash, since that should be faster than a brute-force search via grep or similar.
• For the regex match, I'm using qr// to precompile the regular expressions.
• Instead of grep, I'm using first from List::Util, because that will stop after the first match.
• I'm staying away from given/when/~~ because those are marked experimental and their implementation may change in the future.

How many "pages" do you have? Because if it's more than a few, your code is still going to get very repetitive, and an even more general-purpose solution will probably be more maintainable in the long run.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.