while (chomp(my $in = <STDIN>)) {
   last if $in eq '0';
   my @array = split(/\s/,$in);
   print "Der Benutzer hat ",scalar(@array)," Sachen eingegeben...";
}