print "Exists\n" if exists $hash{$key}; #### use strict; use warnings; use diagnostics;