my @pats  = map qr/$_/, @some_input;
my $any   = ??? # no resort to explicit indices