# STDOUT hat hier Puffer aktiviert
for my ( @list ) {
  STDOUT->printflush('.');
  sleep 1;
}
# STDOUT hat hier Puffer aktiviert