use strict;
use diagnostics;
use DDS;

sub funny_sub {
#     local $_;
    Dump "in sub: $_";
    while (<>) {
        Dump "while: $_";
    };
};

for (qw(aussen_a aussen_b aussen_c)) {
    Dump "for: $_";
    funny_sub;
};