One very simple approach that works with older versions of Perl is to use lexical variables for your keys.

use strict;

my $bar = 'bar';

my $foo{$bar} = 1;
my $foo{$bear} = 1; # gives a compile error
[download]