bin dohc nur ein armer SI ...
Ich bin jetzt soweit , aber der vergleicht bei mir die Strings nicht.
geht das in Perl nicht?

my $solldatei = 'a.txt';
my $istdatei = 'b.txt';

open my $filehandle, '<', $solldatei;
open my $filehandle1, '<', $istdatei;

while( my $ziele = <$filehandle> )
{
@test = split(/;/, $ziele);
while( my $ziele1 = <$filehandle1>)
{
@test1 = split(/;/, $ziele1);
if(@test[0]==@test1[0])
{
print "@test[0]";
print " und";
print " @test1[0]";
print " COOL!\n";
$x=0;
}
else
{
print "SCHEISSE";
}
}

}

close $filehandle;
close $filehandle1;