sub foo {
	my @files;

	my $bar = sub {
		push @files, @_;
	};
	
	$bar->(@_);

	shift;
	return @files, @_ ? foo(@_) : ();
}

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