Select Code to Download

my @x = qw(foo bar CHOP_ME_OFF_foo);
my @y = @x;
...
my @changes = map {s/^CHOP_ME_OFF_//; $_ } @y;

print "x @x\ny @y\ncopies @copies\nchanges @changes\n";