#program2
my @data;
push(@data,$_) while(<STDIN>);

for(@data){
  # hier tu ich was mit den Daten
}

[...]