if ($response ~~ ['yes', 'Yes', 'YES', 'y'])

##</code><code>##

if (lc $response ~~ ['yes', 'y'])

##</code><code>##

if (lc $response ~~ ['yes', 'y'])

##</code><code>##

if (lc $response ~~ [qw(yes y)])