[Ghost]

open (FILE, "spisok1.txt");
my @indata1 = <FILE>;
close (FILE);
my $l1 = @indata1;
open (FILE, "spisok2.txt");
my @indata2 = <FILE>;
close (FILE);
my $l2 = @indata2;
for (my $i=0; $i<$l1; $i++) {
  my @p1 = split (/;/, $indata1[$i]);
  for (my $j=0; $j<$l2; $j++) {
    my @p2 = split (/;/, $indata2[$j]);
    if ($p1[0] eq $p2[0]) {
      print "Line $i in File1 == Line $j in File2: $p1[0]\n";
    }
  }
}