knoppix@Microknoppix:~$ perl -Mstrict -Mwarnings -E '
> my @values = qw{
>    041351920234
>    Rabbit
>    0343120
>    041271024500
>    0430870
>    Apple
>    041460301399
>    };
> 
> say for
>    map  { $_->[ 0 ] }
>    sort {
>         ( $a->[ 1 ] <=> $b->[ 1 ] )
>         ||
>         (
>         $a->[ 1 ]
>         ? $a->[ 0 ] <=> $b->[ 0 ]
>         : $a->[ 0 ] cmp $b->[ 0 ]
>         )
>         }
>    map  { [ $_, m{^\d} ? 1 : 0 ] }
>    @values;'
Apple
Rabbit
0343120
0430870
041271024500
041351920234
041460301399
knoppix@Microknoppix:~$