my @months = map{tie my $var, i18n::String2, $_; $var } qw(January February);