Select Code to Download

use v5.20;
use List::Util qw(any none);

...

say 'NOPE' if in @list, '2';
say 'NOPE' if notin @list, 'D';