4.3.6 each

取出雜湊的鍵/值對,傳回一個串列

#! /usr/bin/perl

%A=("m", 1, "n", 5, "g", 2, "p", 9);

print '雜湊 %A 的鍵=>值配對為:', "\n";

while (($key, $value)=each %A) {
	print "$key ====> $value\n";
}

# 輸出:

雜湊 %A 的鍵=>值配對為:
p ====> 9
n ====> 5
g ====> 2
m ====> 1