Perl: Как добавлять в файл не дубли

подскажите пожалуйста как правильно написать, что бы в файл выводились только уникальные значения, а дубли не добавлялись. Я только несколько дней разбираюсь в Perle, ниже мой код, вернее не мой, а попытка переделать чужое под свои потребности. С помощью этого кода, я получаю имена при каждом запуске приложения, но они дублируются и я не понимаю, как сделать так, что бы запись добавлялась только 1 раз. Вот код:

package playerRecord;

use strict;
use Plugins;
use Log qw(message);
use Globals;
use Settings;
use Actor;
use Utils qw(binAdd existsInList getFormattedDate);
use utf8;
use warnings 'all';
use List::MoreUtils;
use List::MoreUtils qw( uniq );

Plugins::register("prec1", "playerRecord1", \&on_unload, \&on_reload);
my $hook = Plugins::addHook('charNameUpdate', \&write_player, undef);

sub on_unload {
    Plugins::delHook("charNameUpdate", $hook);
}
sub on_reload {
    message "playerRecord1 plugin reloading, ";
    Plugins::delHook("charNameUpdate", $hook);
}
sub write_player {
    my (undef, $args) = @_;
    my $self = shift;
    my $selfName = $char->name();
    my $file = "./MyID.txt";
    message "MyID IS: $selfName\n";
    
    
    open FILE, ">>:utf8", $file;
    print FILE "$selfName \n";
    close FILE;
}

1;

Спасибо.