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