[Ghost]

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