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