Select Code to Download

use strict;
use warnings;
...
print "master: ", join(q{,}, @master ), "\n";
print "attrib: ", join(q{,}, @alias  ), "\n";
print "\n";

After alias
master: 3,1,2,3,a,b,c,d
...
After splice
master: 4,1,6,2,3,z,b,c,d
attrib: z,b,c,d