in reply to Boolean array indexing
Instead of map{ $a[$_] } @ind you can write @a[@ind], an array slice.
Or even:
my @result = @a[grep {$b[$_] > 1} 0 .. $#b]; [download]