my @unique = grep !$seen{ substr($_, 9, 5) }++, @newFile;