Select Code to Download

    {                                      
        "test": [          
...
            }                              
        ]                                  
    }

    open(my $fh, '<', "$file_path") or return 0;
    while (my $line = <$fh>) {
...
        }
        push(@{$href->{"test"}},\%a);
    }

{                                                                     
+           
    "root": [                                  
...
        }
    ]
}

sub parse_file {
    my ($file_path,$href) = @_;
...
    prase_results_raw($all,\%data);
    push(@all_data,\%data);
}

{                                                                     
+           
    "root": [                                  
...
        }
    ]
}