in reply to Oracle IN like operator in Perl
if ($val ~~ ['val1', 'val2', 'val3', 'val4']) {...} [download]