sub foo {
	my @files;

	my $bar = sub {
		push @files, @_;
	};

	$bar->(@_);

	return @files;
}

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