Select Code to Download

use warnings;
use strict;
...
in list
in list
in list

use 5.010;
if ($var ~~ [2, 3]) {
...
else {
    print "not in list\n";
}