my $c=0;
while($c<3){
  my $l=<STDIN>;
  print "## $c ## $l";
  $c++;
}
seek(STDIN,0,0);
while(<STDIN>){
  print ".... $_";
}