# each( %hash ) while (my($key,$value)=each(%StateName)) { # there's lots more to know print "key='$key', value='$value'\n"; # about "each" - see the # resources below! } print "\n";