%hash = map { getkey($_) => $_ } @array;
##</code><code>##

    %hash = ();
    foreach $_ (@array) {
        $hash{getkey($_)} = $_;
    }
##</code><code>##

  my %res = map {
	$_ => do {
		my $re;
		$re .= $translations{$_} for split //;
		$re;
	} if !$res{$_};
  } @words;


##</code><code>##

  my %res;
  my @res = map {
	$_ => do {
		my $re;
		$re .= $translations{$_} for split //;
		$re;
	} if !$res{$_};
  } @words;
  %res = @res;

##</code><code>##

  my %res;
  %res = @_ =map {
	$_ => do {
		my $re;
		$re .= $translations{$_} for split //;
		$re;
	} if !$res{$_};
  } @words;