my $low = 5278;
my $hi  = 5391;
sub inRange { 
  my $n = shift;
  return( $hi > $n and $n > $low );
}