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