my $i = 0;
while (<0>) {
  chop;