my %hash = (
  (FOO) => 35,
  (BAR) => 19,
);
print $hash{(FOO)};