Select Code to Download

my $ar1=[$x,$x];
my $ar2=[$y,$z];

my $ar3=[$x,$x];
my $ar4=[$y,$y];

# $ar1
$VAR1 = [
...
          {},
          $VAR1->[0]
        ];