$" = ':'; 
for (my $int = 1; $int <= 999999999999; $int++) { 
    my $leading = sprintf("%012d", $int);
    my @split = ($leading =~ /../g);
    print "@split\n";
}