perl -MData::Dumper -e '@a=0..9;@b=split(//,"x"x10); @c = map{ $_.":".shift @a } @b; print Dumper \@c';