use strict;
use warnings;
 
 
&foo('gronk');
 
sub foo {
    my %pages = ("index" => '1',
              "me"    => '1',
               "stuff" => '1',
               "links" => '1');
  my $page = shift;
  exit 0 unless $pages{$page} == '1';
}