use List::Util qw{ none };
if (none { $_ eq $choice } qw( a r o d e )) {