use Readonly;

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

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