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

##</code><code>##

  my @b = (7,5,5,6);
  my @a;
  @a = map { $_ > 5 ? $_ : $a[0] } @b;