Select Code to Download

my @num_to_name;
BEGIN {
...
    require constant;
    constant->import( $num_to_name[$_] => $_ ) for 0 .. $#num_to_name;
}

my @num_to_name;
BEGIN {
...
    require constant;
    constant->import({ map { $num_to_name[$_] => $_ } 0..$#num_to_name
+ });
}