use strict;
use warnings 'all';

my @array1 = (1, 2, 3, 4, 5, 15, 14, 13, 12, 11);
my @array2 = sort {unpack('C4',$a) <=> unpack('C4',$b)} @array1;
print "@array2\n";
__END__
1 11 14 15 13 12 2 3 4 5