Select Code to Download

my % pages = ( 'index' => 1,
               'me'    => 1,
...
               'links' => 1 );
my $page = shift;
exit 0 unless exists $pages{$page} and $pages{$page} == 1;

exit 0 unless exists $pages{$page} and
              defined $pages{$page} and
              $pages{$page} == 1;