Perlでハッシュのキー値の存在チェック

ハッシュ変数（例では%sub）があり、その中のキー値（例ではkey）がすでに存在しているかは、exists関数で判断します。

if ( exists $sub{'key'} ) {
    print "hashのKeyが存在する\n";
}
else {
    print "hashのKeyが存在しない\n";
}