while (@InputData) {
  my $line = shift(@InputData);