Select Code to Download

#!/usr/bin/perl
use strict;
...

my $thing = FOO;
print "$thing defined by: " . join(" and ", @{$val_to_name{$thing}})."
+\n";