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]

##</code><code>##

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"]