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