#!perl -w

use strict;

my %en2fr = (
    one   => 'un',
    two   => 'deux',
    three => 'trois'
);

# yes I realize there are better ways to grab the
# hash values, this is for demonstration only :)
print join(
    ', ', $en2fr{one}, $en2fr{two}, $en2fr{three}
), $/;