@numbers = (2, 15, 1, 12, 123, 1234, 12345);
@numbers = map {sprintf '%4.4d', $_} @numbers;
print join ',', @numbers;
__END__
0002,0015,0001,0012,0123,1234,12345