Just do

my %file;
init_files(\%files);

.
.
.

sub init_files {
   my ($files) = @_;
   %$files = (
      ...
   );
}
[download]