# This?
if( exists $hash{ sprintf "%#x", ord('a') } ) { ... }
# or this?
if( exists $hash{a} ) { ... }