use strict;
use Data::Dumper;

my @array;
for (my $i = 0; $i < 5; ++$i) {
  LABEL:
    my @y;
    push(@y, $i);
    push(@array, \@y);
    if ($i & 1) {
        ++$i;
        goto LABEL;
    }
}
print(Dumper(\@array), "\n");

##</code><code>##

$VAR1 = [
          [
            0
          ],
          [
            1,
            2
          ],
          $VAR1->[1],
          [
            3,
            4
          ],
          $VAR1->[3]
        ];

##</code><code>##

my @y;

##</code><code>##

my @y = ();