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

   $VAR1 = [
             bless( do{\(my $o = 'January')}, 'i18n::String2' ),
             bless( do{\(my $o = 'February')}, 'i18n::String2' )
           ];