if ($key eq "\cH") {
   ...
}