#!/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";
}