foreach (map $_, @a) {
  $_++; # then whatever
}