Select Code to Download

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

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

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