More robust:
my @new_list = map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { ( my $s = $_ ) =~ s/(\d+)/0$1/g; [ $_, $s ] } @split_list;
In reply to Re^2: Sort problems
by ikegami
in thread Sort problems
by erez_ez
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |