Select Code to Download

use v5.20;
use Operator qw{in};
use Variables qw{X Y Z};
...

Z = 'A';
say Z." in list" if Z in ['A'..'C'];

package Variables;
use v5.20;

...
  }
}
1;

package Operator;
use v5.20;
use List::Util qw{any none};
...
  return sub { any { $_ eq $_[0] } @$list };
}
1;

1 in 1 2 3 4 5 6 7 8 9 10
12 not in 1 2 3 4 5 6 7 8 9 10
A in list