sub check {

  my $ck = shift;

  my %message= (
    'y345'   => " Close ",
    '1223dx' => " Open ",
    '88888'  => " Gone ",
    'acb2'   => " Available ", 
    '1114'   => " Exit ",
    );

  return 'unknown or missing check value' 
    unless defined($ck) and exists $message{$ck};
  
  return $message{$ck};
  
  }