Select Code to Download

my $x=0;
my $size=5;
...
        print "$i:$x\n";
}

my $x=0;
my $size=5;
for( my $i=0; $i<$size; $i+=2 ) {
        print "$i:",$x++,"\n";
}