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

##</code><code>##

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

##</code><code>##

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

# $ar2
$VAR1 = [
          {},
          {}
        ];

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

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