foreach my $row (@rows) {
    my $found = 0;
    foreach my $element (@data) {
        if ($row =~ m/\Q$element/) {
            $found = 1;
            last;
        }
    }
    push @data, $row if $found;
}