# write
use Path::Tiny;
use List::Util qw( uniq );
path($filename)->spew(join "\n", uniq(@words), '');