Buenas,
Si lo que quieres es validar que la variable contenga unos de esas subcadenas siempre puedes usar la función index() (
https://perldoc.pl/functions/index) o expresiones regulares.
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use warnings;
use v5.28.1;
my $variable = 'ABBA';
if($variable =~ 'AB') {
say 'si';
} else {
say 'no';
}
Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
El ejemplo anterior mostrara "si" por pantalla dado que 'ABBA' contiene el
substring 'AB'.
Si estamos hablando de la estructura de datos conocida como
Set, siempre puedes usar este módulo de CPAN
Set::Scalar