Select Code to Download

%files_data = { 
              './GetOpt.pm' => {
...
                                     }
                          }
                    };

            
    %process_data = (

...
                           'name' => 'file2'
                         }
            );

    
    %hash = (
            'file1' => {
...
                './GetOpt.pm' => 1,
        }
    );

    file1 => file2 => ./GetOpt.pm

    file1 => {
        ./GetOpt.pm,
        file2 => ./GetOpt.pm
    }

create_proc_tree(\%process_data,\%files_data);

...
    }
    print Dumper(\%hash); # Printing for debug
}

use Data::Dumper;
$abc = "Mouse=>Jerry, Cat=>Tom, Dog=>Spike";
my %hash = eval( "( $abc )" );
print Dumper(\%hash);