use Storable [thaw];

...

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

print $text->[ 27 ];