in reply to Custom sort with string of numbers

use Sort::Key::OID qw(oidsort);

my @b = oidsort @a;

[download]

In Section Seekers of Perl Wisdom