(
"...", # 0
"...", # 1
...
);

##</code><code>##

my $lang = determineLang();
my @text = do "$lang.pl";

...

print $text[ 27 ];

##</code><code>##

use Storable [thaw];

...

my $lang = determineLang();
my $text = thaw( "$lang.sto" );
...

print $text->[ 27 ];