use warnings; 
my $foo; 
if ($foo eq "hey!") {
    print "yes"
}