use strict;
use warnings;

sub oid_lex_sort(@)
{
   return @_ unless (@_ > 1);

   map  { $_->[0] }
   sort { $a->[1] cmp $b->[1] }
   map  {
      my $oid = $_;
      $oid =~ s/^\.//o;
      $oid =~ s/ /\.0/og;
      [$_, pack('N*', split('\.', $oid))]
   } @_;
}

sub oid_grt_sort
{
   my $ary=shift;
   map  {
          my $len=unpack('N*',substr($_,-4));
          substr($_,-$len-4,$len)
        }
   sort
   map  {
      my $oid=$_;
      $oid =~ s/^\.//;
      $oid =~ s/ /.0/g;

      pack('N*', split(/\./, $oid))
      . $_
      . pack('N*', length($_));
   } @$ary;
}

my @o=('.1.3.4.5.7','1.2 3.4.8','3.2 9.1 7','1 3 4 5 9');

print join "\n",qw(grt:),oid_grt_sort(\@o),"";
print join "\n",qw(---- lex:),oid_lex_sort(@o),"";