while (defined (my $input_line = <$input>)) {
  chomp $input_line;