# 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";
#   }
}

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]";
   }
}

open FILE,'<','datei.txt' or die $!;
my @inhalt = <FILE>;
close FILE;

print $inhalt[$_] for 0..5;

#!/usr/bin/perl

use warnings;
use strict;

my @array = (1,2,3,4,5,6,7,8,9);

print join("\n", @array[0..$#array]), "\n";
#print join("\n", @array[0..5]), "\n";

#!/usr/bon/perl
use strict;
use warnings;
use Data::Dumper;

my @array = (1..5);

print Dumper \@array;

$VAR1 = [
          1,
          2,
          3,
          4,
          5
        ];

$VAR1 = 1;
$VAR2 = 2;
$VAR3 = 3;
$VAR4 = 4;
$VAR5 = 5;