Hallo,

das problem:
mein script liesst ein word-dokument per OLE aus und stopft den inhalt in ein array.

ich würde gleich beim Einlesen die Aufteilung machen. Etwa

<code>
my $block_count = 0;
my @blocks;
my $line
while(&get_line_from_worddocument($line))
  {
  chomp; # Frage: ist \n wirklich Bestandteil der Zeilen?
  $line =~ s/\s*$//; # eventuell Leerzeichen rausschmeißen

jetzt sind wir uns sicher, daß nix mehr in den Leerzeilen stehen kann

if($line eq '')
    {
    $block_count++;
    }
  else
    {
    push @{$blocks[$block_count]}, $line;
    }
  }
</code>

Damit ersparst Du Dir zumindest ein Array, daß eigentlich nur einmal gebraucht wird.

'Literaturhinweis':
perldoc perllol
perldoc perldsc

Grüße
  Klaus