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