...better yet...

while($_=pop @sorted_data)
{
   unshift(@data_out,$_) unless ($seen{substr($_,0,7)}++);
}
[download]