use Sub::Infix;
BEGIN {
  *between = infix {
    my ($number, $range) = @_:
    $number >= $range->[0] and $number <= $range->[1];
  };
}

if ($value <<between>> [1,10]) {
  ...;
}