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