sub uniq {  #and this to handle the duplicated emails
    return keys %{ { map { $_ => 1 } @_ } };
}

say join ' ', uniq(qw( ABC DEF GHI JKL ABC DEF ABC ));

##</code><code>##

GHI DEF ABC JKL

##</code><code>##

my $removed = @findemails - @filtered;