use List::Util 'reduce';
print reduce { $a . ($b ? ":" : "") . $b } (0,1,0,1);