Select Code to Download

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

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