<pedantry>
... an array with padded numbers ... (0001,0002,0003,011,012,013,015) ...
Just BTW, and perhaps to avoid a subsequent misunderstanding, that's an array of octal numbers.
c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
;;
my @ra = (0001,0002,0003,011,012,013,015);
dd \@ra;
"
[1, 2, 3, 9, 10, 11, 13]
See in particular the "true" (i.e., decimal) value of 015.
Might you be thinking of something like qw(0001 0002 0003 011 012 013 015) instead?
c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
;;
my @ra = qw(0001 0002 0003 011 012 013 015);
dd \@ra;
"
["0001", "0002", "0003", "011", "012", "013", "015"]
</pedantry>
Give a man a fish: <%-{-{-{-<
|