use constant HELP_KEY => chr( 8 ); ## Control H

if( HELP_KEY() eq $key ) {
  ## . . .
}

##</code><code>##

use Readonly;

Readonly my $HELP_KEY => chr( 8 ); ## Control H

if( $HELP_KEY eq $key ) {
  ## . . .
}