I once had a similar problem which I solved with the following structure:

%words = (
    'file_not_found' => {
        'de' => "File nichte founden",
        'dk' => "Fil ikke fundet",
        'uk' => "File not found",
    }
);
print $words{'file_not_found'}->{$lang}."\n";
[download]

It makes it easy both add new languages and all you have to add is a 'translate' function which can look up words in the word list, based on phrases and a language indicator. I have the original code if you want to check it out.