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