or download this
print for grep($a[$_], @indices) ? @a[@indices] : 1..11;
print for grep(defined $a[$_], @indices) ? @a[@indices] : 1..11;
...
print for !grep(!defined $a[$_], @indices) ? @a[@indices] : 1..11;
print for !grep(!exists $a[$_], @indices) ? @a[@indices] : 1..11;
# update: actually use slices after ?