sub in_range {
  my( $number, $low, $high ) = @_;

  return 1 if $number >= $low && $number <= $high;
  return 0;
}

my $match = in_range( 68 => 128, 255 );