C:\test>copy con in.csv
123,456
789,123
135,780
^Z
        1 file(s) copied.

C:\test>perl -F, -aple"$_ = join ',', $F[0], sprintf '%05d',$F[1]" in.csv
123,00456
789,00123
135,00780