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;