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';
}


##</code><code>##

[peter@kennel tmp]$ perl test_eq.pl
Use of uninitialized value in numeric eq (==) at test_eq.pl line 13.