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

my @b = oidsort @a;