sub foo {
	my @files;

	sub bar {
		push @files, @_;
	};

	bar(@_);

	return @files;
}

print join ' ', foo(123, 456);       # prints '123 456'.
print join ' ', foo('abc', 'def');   # prints nothing.