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