my @values = values (%$result);
foreach my $key (@values) {
print "key:$key\n";
$status = $key;
}

print "status:$status\n";

##</code><code>##

Global symbol "$status" requires explicit package name at C:\SNMP.pl line 21.
Global symbol "$status" requires explicit package name at C:\SNMP.pl line 24.
Global symbol "$status" requires explicit package name at C:\SNMP.pl line 26.
Global symbol "$status" requires explicit package name at C:\SNMP.pl line 30.
Execution of C:\SNMP.pl aborted due to compilation errors.