Select Code to Download

splice @a, 0, 1;
#          |  |
#          |  +-- length
#          +----- offset
#

for (0..$#a) {
  if ($a[$_] eq 'a') {
...
          # the first match
  }
}

@a = map { /a/ ? () : $_ } @a;