#!/usr/bin/env perl
use strict;
use warnings;
use Data::Printer;

my @unsorted = qw( 041351920234 Rabbit 0343120 041271024500 0430870 Apple 041460301399);

my @sorted = sort { $a <=> $b || $a cmp $b } @unsorted;

p @unsorted;
p @sorted;