Select Code to Download

#!/usr/bin/perl

...
print Dumper \@x, \@y;

__END__

$VAR1 = [
          'x',
...
          $VAR1->[1],
          $VAR1->[2]
        ];