Select Code to Download

use strict;
my @x = qw( 1xxx  2xxx 300x  10xx  );
...

print "numeric sort: @x\n";

@x = sort {$a =~/^d+/ <=> $b =~/^d+/} @x;

print "regex sort: @x\n";