my @new_list = map  { $_->[0] }
               sort { $a->[1] cmp $b->[1] }
               map  { ( my $s = $_ ) =~ s/(\d+)/0$1/g; [ $_, $s ] }
               @split_list;