Select Code to Download

use constant { FOO => 1, BAR => 2 };

my @num_to_name = qw(FOO BAR);

my $thing = FOO;
print "Thing = ".$num_to_name[$thing]."\n";

my @num_to_name;
BEGIN {
...
        *blah = sub { $number };
    }
}