Select Code to Download

use strict;
use Data::Dumper;
...
    }
}
print(Dumper(\@array), "\n");

$VAR1 = [
          [
...
          ],
          $VAR1->[3]
        ];

my @y;

my @y = ();