my @a = (':','',':','');
my $i=0;
print join $a[$i++], 0,1,0,1; # Wrong, $i isn't incremented