Select Code to Download

my $files = {
   filename1 => {
...
              | and so on...
     }
}

   foreach my $file ( keys %$files ){
        foreach my $field ( keys %{$files->{$file}}{
        |
        do something here 
        |

package MyDataFile;

...


1;

use strict;
use MyDataFile;
...
   | 
   etc.
    |