Select Code to Download

#!/usr/bin/perl -w

...
       push(@y,$_) foreach(@z); # add the rest to y
       }
close FH;

#!/usr/bin/perl -w

...
close FH;

print "X:@x\n1:@y1\n2:@y2\n3:@y3\n4:@y4\n";