use strict;
use Net::SNMP;
my @unsort = qw/ 1.3.6.1.2.1.1.5 1.3.6.1.2.1.1.4 1.3.6.1.2.1.1.1 1.3.6.1.2.1.1.2/;
my @sort = Net::SNMP->oid_lex_sort(@unsort);
local $, = "\n";
print @unsort;
print "\n-------\n";
print @sort;

##</code><code>##

1.3.6.1.2.1.1.5
1.3.6.1.2.1.1.4
1.3.6.1.2.1.1.1
1.3.6.1.2.1.1.2
-------
Net::SNMP
1.3.6.1.2.1.1.1
1.3.6.1.2.1.1.2
1.3.6.1.2.1.1.4
1.3.6.1.2.1.1.5