my @unique = grep { my $key = extract_key($_);
                    ! $seen{ $key }++
                  }
             @newFile;

##</code><code>##

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