Select Code to Download

IF ($variable == 1 || $variable == 2 || $variable == 3) {
...
IF ($vaiables == [1,2,3?????????

sub any {
  my $var = shift;
...
}
if (any($var,1..2000)) { print "Var is between 1 and 2000 inclusive\n"
+ }