# simple.pl
my %ha = (
'ha' => 1,
'he' => 2,
);
print $ha{'ha'}."\n";