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