Hash Perl

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