package MyPackage; 
      sub make_hash { 
          (local $/)=undef; 
          my (@files,%hash); 
          @files = @_; 
          
          foreach my $file ( @files ) { 
            open( my $fh, $file ) or next; 
            $hash{$file} = <$file>;
           }; 
          return \%hash; 
        }
     __END__