foreach (reverse @sorted_data) {
    unshift(@data_out, $_) unless ($seen{substr($_,0,7)}++);
}