Select Code to Download

my @sortedIdx=
        map { unpack "N", substr($_,-4) }
...
            $key =~ s[(\d+)][ '0' . pack "N", $1 ]ge;
            $key . pack "CN", 0, $_
        } keys %{$oids{ifName}};

my @keys= ( keys %{$oids{ifName}} )[
        map { unpack "N", substr($_,-4) }
...
            $key . pack "CN", 0, $_-1
        } 1 .. keys %{$oids{ifName}}
];