r1233
r1456
r1233
r1233
r9786
etc.

r1233
r1456
r9786
etc.

	
	open (INPUT,"<YES_$ziel.txt") || die $!;
	
	while (<INPUT>)
	{
		foreach $doppelt1 ($_ =~ /\w{1,2}\d{4}/g)
		{
			open (INPUT2,"<YES_$ziel.txt") || die $!;
			open (OUTPUT2,">YES_$ziel.txt") or die "konnte $ziel nicht oeffnen,$!\n";
			
			while (<INPUT2>)
			{
				foreach $doppelt2 ($_ =~ /\w{1,2}\d{4}/g)
				{
					#print "$doppelt2\n";
					#wenn $doppelt1 und $doppelt2 gleich sind, dann soll eins davon gelöscht werden
					if($doppelt1 eq $doppelt2)
					{
						unlink $doppelt2;
					}
					else
					{
						print OUTPUT2 "$doppelt1\n";
					}
				}
			}
			close INPUT2;
		}
	}
	close INPUT;

#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file = '/pfad/zur/datei';

tie my @lines, 'Tie::File', $file or die $!;
my %seen;
@lines = grep{ !$seen{$_}++ }@lines;
untie @lines;

sort -u