Or even:

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