use strict;
use warnings;

my %referenceTable = (me=>5, you=>2);
my $systemKey = 5;
for my $key qw(me she) {
    if (defined $referenceTable{$key} eq $systemKey) {
        print "$key if\n";
    }
    else {
        print "$key else\n";
    }
}

__END__

me else
she else