#!/usr/bin/perl -w
use strict;

for (1..3) {
  print "Halt, bitte irgendwas eingeben und durch Enter bestaetigen:\n";
  chomp(my $input = <STDIN>);
  print "Bei Durchlauf Nr. $_ wurde $input eingegeben.\n\n";
}