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");