sub jah {
        while (my $d = shift) {
             print "$d\n";
        }
}
@_ = qw(foo bar bat);
jah(); # produces no output
jah(qw(foo bar bat)); # produces output