@_ = qw/ hallo welt /; &foo; foo(); sub foo { print @_, "\n"; }