if (exists $a{one}) { print "\%a has 'one' for a key" }