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

##</code><code>##

    @ary = <OWO>;

##</code><code>##

    %hsh;

##</code><code>##

    undef @hsh {@ary};

##</code><code>##

    @list = keys %hsh;

##</code><code>##

 
    open my $fh => "+< $owo" or die "Failed to open $owe: $!\n";
    my %seen;
    my @unique = grep {!$seen {$_} ++} <$fh>;
    seek $fh, 0, 0 or die "Failed to seek $owe: $!\n";
    print $fh @uniqe;
    truncate $fh => tell $fh or die "Failed to truncate $owe: $!\n";
    close $fh;

##</code><code>##

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