my @indexes = map { EXPR ~~ $a[$_] } 0..$#a;