4.3.7 exists

#! /usr/bin/perl

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

if (exists $A{g}) {
	print '%A 中有鍵 g', "\n";

}

# 輸出：%A 中有鍵 g

# 再看以下例子：

#! /usr/bin/perl

print '請問你要查 %A 的那一個鍵？';
chomp($key=<STDIN>);

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

if (exists $A{$key}) {
	print '%A 中有鍵 ', $key , "\n";
} else {
	print "$key 這個鍵不存在!" , "\n";
}

# 輸出結果：
請問你要查 %A 的那一個鍵？n
%A 中有鍵 n

請問你要查 %A 的那一個鍵？k
k 這個鍵不存在!