foo(1,2,3,4,5,6); sub foo { my ($file, @directories) = @_; print $file, "\n"; print @directories; }