#!/usr/bin/perl
# array.pl -- by Ubuntu-Forum.de
 
use strict;
use warnings; 
 
my @datensatz;
my $restart;
 
do
{
   print 'Geben Sie die Anzahl der Datensaetze ein: ';
   my $danzahl = <STDIN>;
 
   foreach (1..$danzahl)
   {
     my $zaehler = @datensatz + 1;
     print "Geben Sie den Inhalt für den Datensatz: $zaehler ein: ";
     my $eingabe = <STDIN>;
     push(@datensatz, $eingabe);
   }
 
   foreach (@datensatz)
   {
     print $_;
   }
   print "\nWollen Sie das Programm neustarten [j] oder beenden [n]?: ";
   $restart = <STDIN>;
   chomp $restart;		
} while ($restart eq "j")