MATCH: {
    foreach (@file) {
        if (/^\Q$storeline|\E/) {
            duped_ids $storeline;
            last MATCH;
        }
    }
    no_match $storeline;
}