# Subroutine um Datei zu erstellen und zu beschreiben
sub create_file
{
   $file = "test.txt";

   open(DATEI, " < $file")
   or die "Fehler beim öffnen! \n $! \n";

   while (<DATEI>)
   {
      push (@array1, $_);
   }

   close (DATEI)
   or die "Fehler beim Schließen der Datei! \n";

# Hier soll dann eine Schleife laufen, die nur die ersten 5 Zeilen ausgibt
#   for ($i=0, $i<=5, $i++)
#   {
#      print "@array1";
#   }
}