DB<1> @a = ( 6,7,8 );

  DB<2> @b = ( 3,2,1 );

  DB<3> @c = map {$a[$_]} grep {$b[$_] > 1} 0..$#b;

  DB<4> p "@c";
6 7
  DB<5>

##</code><code>##

  DB<5> print join " ; ",  map {$a[$_]} grep {$b[$_] > 1} 0..$#b;
6 ; 7
  DB<6>