#!/usr/bin/perl

  use strict;
  use warnings;

  my $file_a = <<EO_FILE_A;
a b c d e
f g h i j
k l m n o
x q y w z
EO_FILE_A

  my $file_b = <<EO_FILE_B;
a b c f e
k o j n p
y w e q a
x q y w z
EO_FILE_B

  open( FILE_A, '<', \$file_a ) or die $!;
  open( FILE_B, '<', \$file_b ) or die $!;

  my $pattern = qr/^\s*$/; # trifft auf leere Zeilen oder nur Whitespaces zu
  my @lines_a = grep !/$pattern/, <FILE_A>;
  my @lines_b = grep !/$pattern/, <FILE_B>;

  close( FILE_A ); close( FILE_B );

  chomp(@lines_a, @lines_b);

  for( my $i = 0; defined $lines_a[$i] && defined $lines_b[$i]; $i++ ) {

      my @parts_a = split /\s+/, $lines_a[$i];
      my @parts_b = split /\s+/, $lines_b[$i];

      next unless $parts_a[0] eq $parts_b[0]; # ueberspringt ungleiche Satznr.

      print "\t\t$lines_a[$i]\t$lines_b[$i]\n";
      print "Satznr: $parts_a[0]\n";
      print "Aufeinanderfolgend gleiche Woerter:";

      # so lange beide Elemente definiert sind und gleiche Inhalte haben ...
      my $j = 1;
      while(    (defined $parts_a[$j] && defined $parts_b[$j])
             && ($parts_a[$j] eq $parts_b[$j])                    ) {

          print " $j";  # ... aktuelle Wortindexnr. ausgeben
          $j++;
      }

      print "\n", '-' x 45, "\n\n";
  }