Select Code to Download

    open (OWO, "+>$owo") or die $!;

    @ary = <OWO>;

    %hsh;

    undef @hsh {@ary};

    @list = keys %hsh;

 
    open my $fh => "+< $owo" or die "Failed to open $owe: $!\n";
    my %seen;
...
    print $fh @uniqe;
    truncate $fh => tell $fh or die "Failed to truncate $owe: $!\n";
    close $fh;

    system "sort -u $owe > $owe.tmp; mv $owe.tmp $owe";