while (chomp(my $in = <STDIN>)) {
  last if $in eq '0';
  print "\t$in\n";
}