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]