Compile time constant removal magic.

perl -MO=Deparse play produces:

my(@a) = (1, 2, 3);
my(@b) = (4, 5, 6);
push @a, 'foo';
print "a=@a b=@b\n";
[download]

/msg self Read ALL the post before replying