Select Code to Download

my @datums = (
 { field => 'out', snmptag => '1.3.6.1.2.1.2.2.1.16.1', opt => 'U' },
...
}

$update_string = join ':', 'N', map { /: (\d+)/; $1 } @data{ map { $_-
+>{field} } @datums };

my @fields = map {
  qx/snmpget -v1 -c $string $ip $_->{snmptag}/ =~ /: (\d+)/; $1
...
} @datums;

$update_string = join ':', 'N', @fields;