##################################
# Read-Out-Engine / Buchausleser #
##################################

# bitte das drei-Variablen-open benutzen.
# Du schreibst ja keinen perl3 Code.
# und bitte Richtige Variablen als Filehandle nutzen.
# Das erspart dir einigen Ärger.
# Das ist jetzt möglicherweise noch nicht wichtig
# solltest du aber mal größere Scripte schreiben,
# dann hast du dir die gute Schreibweise schon angewöhnt
# und jetzt tut es nicht weh.
open(my $LESER, '<', "coresys/message.csv") or die "ERROR: Unable to open the Message-file during read-access!";
flock($LESER, LOCK_SH);

my @Collector;
my $counter = 0;

while(my $zeile = <$LESER>){

  # "zeilelende" "\n" entfernen
  chomp($zeile);
  push (@Collector, [ ++$counter, split(/;/,$zeile) ]);
}
close($LESER);