sub create_file
{
	$file = "test.txt";

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


   while (my $line = <DATEI>)
   {
      push (@array1, $line);
   }

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

   for ($i=0; $i<=5; ++$i)
   {
      print "$array1[$i]";
   }
}