Select Code to Download

my @a = qw/x y z
a b c
...
      splice @a, 0, 0, "#";
   }
}

@a = map {$_ eq "a" ? ("#","a") : $_} @a;