Select Code to Download

use Data::Dumper;

...
print Dumper(\@z1);
my @z2 = zip([qw(5 6 7 8 9)], [qw(d e f)]);
print Dumper(\@z2);