my @input = <STDIN>;
  for (@input) {
     process_line($_);
  }