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

...

print $text[ 27 ];