my @OID; # defined elsewhere
@OID = @OID[
    map { unpack "N", substr($_,-4) }
    sort
    map { pack('N*', split('\.', $OID[$_])) .  pack "N", $_ }
    0..$#list
];