#!/usr/bin/perl

use strict;
use warnings;

my @infos; # Array für die einzelnen Eingaben

for (my $i=1; $i<=3; $i++) {
  print "Information #$i eingeben: "; # Ausgabe
  $infos[$i-1] = <STDIN>; # Eingabe lesen
}
chomp(@infos); 

open(DATEI, ">", "meineinfos.txt") or die "$!";
foreach(@infos) {
  print DATEI "$_\n"; # Zeilenweise abspeichern
}
close(DATEI) or die "$!";

1;