translate_de_en

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump 'pp';
use feature 'say';


sub translate {
    my ($rh_dict, $ra_words) = @_;
    
    my @trans = map { exists($rh_dict->{$_}) ? $rh_dict->{$_} : $_ } @$ra_words;
    return \@trans;
}

my $ra_en_de_xlat = translate({
    ich => 'I',
    bin => 'am',
    ein => 'a',
}, [@ARGV]);

say join(' ',@$ra_en_de_xlat);