Select Code to Download

$direction = shift;
%iface = (
...
foreach my $oid (sort keys(%iface)) {
  %oids = ("$iface{$oid}" => `$snmpwalk $ip $community $oid`);
}

foreach my $oid (sort keys(%iface)) {
  @oids = ({"$iface{$oid}" => `$snmpwalk $ip $community $oid`});
}