pad everything :)

#!/usr/bin/perl --

use strict;
use warnings;

my @un = qw[
.1.3.6.1.4.1.26543.2.5.1.3.1.19.0 
.1.3.6.1.4.1.26543.2.5.1.3.1.20.0 
.1.3.6.1.4.1.26543.2.5.1.3.1.2.0 
.1.3.6.1.4.1.26543.2.5.1.3.1.13.0
.1.3.6.1.4.1.26543.2.5.1.3.1.16.0
.1.3.6.1.4.1.26543.2.5.1.3.1.21.0
.1.3.6.1.4.1.26543.2.5.1.3.1.22.0
.1.3.6.1.4.1.26543.2.5.1.3.1.1.0 
.1.3.6.1.4.1.26543.2.5.1.3.1.12.0 
.1.3.6.1.4.1.26543.2.5.1.3.1.23.0 
.1.3.6.1.4.1.26543.2.5.1.3.1.17.0 
.1.3.6.1.4.1.26543.2.5.1.3.1.18.0 
.1.3.6.1.4.1.26543.2.5.1.3.1.14.0 
.1.3.6.1.4.1.26543.2.5.1.3.1.24.0
.1.3.6.1.4.1.26543.2.5.1.3.1.15.0
];

print $_,$/
for
    map { $_->[0] }
    sort { $a->[1] cmp $b->[1] }
    map { my $f = $_;
          $f=~ s/(\d+)/sprintf '%06d', $1/ge;
          [ $_, $f ];
        } @un;#keys %hashes
__END__
.1.3.6.1.4.1.26543.2.5.1.3.1.1.0
.1.3.6.1.4.1.26543.2.5.1.3.1.2.0
.1.3.6.1.4.1.26543.2.5.1.3.1.12.0
.1.3.6.1.4.1.26543.2.5.1.3.1.13.0
.1.3.6.1.4.1.26543.2.5.1.3.1.14.0
.1.3.6.1.4.1.26543.2.5.1.3.1.15.0
.1.3.6.1.4.1.26543.2.5.1.3.1.16.0
.1.3.6.1.4.1.26543.2.5.1.3.1.17.0
.1.3.6.1.4.1.26543.2.5.1.3.1.18.0
.1.3.6.1.4.1.26543.2.5.1.3.1.19.0
.1.3.6.1.4.1.26543.2.5.1.3.1.20.0
.1.3.6.1.4.1.26543.2.5.1.3.1.21.0
.1.3.6.1.4.1.26543.2.5.1.3.1.22.0
.1.3.6.1.4.1.26543.2.5.1.3.1.23.0
.1.3.6.1.4.1.26543.2.5.1.3.1.24.0
[download]

Schwartzian Transform