my @motifs;
while (my $motif = <MOTIF>) {
    ...
    push @motifs, $motif;
}

while (my $seq = <FILE>) {
    ...
        
    for my $motif (@motifs) {
        if ( $seq =~ /$motif/ ) {
            ...  
        }
        ...
    }
}