And you don't need to say:

  my $file = shift(@_);
    my @directories = @_;
[download]

Look at this example:

foo(1,2,3,4,5,6);

sub foo {
    my ($file, @directories) = @_;
    print $file, "\n";
    print @directories;
}
[download]