in reply to a sort question

You can use Sort::Key::OID: 
use Sort::Key::OID qw(oidsort);
my @sorted = oidsort @data;

[download]

In Section Seekers of Perl Wisdom