or download this
use Data::Dumper;
$VAR1 = { 'cli_config' => 'logging size', 'jobid' => '982505', 'status
+' => 'pass', 'component1' => 'archive-config-log', 'test_name' => '{P
+RCIII.etest: logging size 200}', 'testcase_name' => 'TC11327641669.xm
+l', 'color_bool' => 1 };
...
push(@loop12,\%row);
}
__END__