You can use grep.
my %hash = (ONE => 1, TWO => 0, THREE => 1);
if (grep {! $hash{$_}} keys %hash) {
print "false\n";
}
else {
print "true\n";
}Prints 'false'.
Chris
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
