Using the each operator to extract a key/value pair as a list from the hash
#!/usr/bin/perl -w # Associative array or hash access with each. $hash{"Name"} = "G "; $hash{"Address"} = "1"; $hash{"City"} = "W"; # Access each element with each. while ( ($key,$value) = each(%hash) ) { print "Key: $key \t Value: $value\n"; }