Select Code to Download

$VAR1 = {
          'data' => {
...
                       'fileC' => 10
                     }
        };

sub encode
{
...
    my @json_arr = JSON::PP->new->encode($href);
    return convert_file_to_arr($path,@json_arr);
}

sub decode
{
...
    %{$href} = %{JSON::PP->new->decode($json_data)};
    return 1; 
}

sub merge_files_and_exec
{
...
        decode($path,$data_href);
    }
}

$VAR1 = {
          'data' => {
...
                       'fileE' => 3
                     }
        };

$VAR1 = {
          'data' => {
...
                       'fileE' => 3
                     }
        };