$VAR1 = { 'cli_config' => 'logging size', 'jobid' => '982505', 'status' => 'skip', 'component1' => 'archive-config-log', 'test_name' => 'BEFORE-AFTER.etest', 'testcase_name' => 'TC11327641669.xml', 'color_bool' => 0 }; $VAR1 = { 'cli_config' => 'logging size', 'jobid' => '982505', 'status' => 'skip', 'component1' => 'archive-config-log', 'test_name' => 'DEFAULT.etest', 'testcase_name' => 'TC11327641669.xml', 'color_bool' => 1 }; $VAR1 = { 'cli_config' => 'logging size', 'jobid' => '982505', 'status' => 'skip', 'component1' => 'archive-config-log', 'test_name' => 'ORDER-ROLLBACK.etest', 'testcase_name' => 'TC11327641669.xml', 'color_bool' => '' }; $VAR1 = { 'cli_config' => 'logging size', 'jobid' => '982505', 'status' => 'pass', 'component1' => 'archive-config-log', 'test_name' => '{PRCIII.etest: logging size 200}', 'testcase_name' => 'TC11327641669.xml', 'color_bool' => 1 }; $VAR1 = { 'cli_config' => 'logging size', 'jobid' => '982505', 'status' => 'skip', 'component1' => 'archive-config-log', 'test_name' => 'ROLLBACK.etest', 'testcase_name' => 'TC11327641669.xml', 'color_bool' => '' }; $VAR1 = { 'cli_config' => 'logging size', 'jobid' => '982505', 'status' => 'skip', 'component1' => 'archive-config-log', 'test_name' => 'SIDE-EFFECTS.etest', 'testcase_name' => 'TC11327641669.xml', 'color_bool' => 1 }; $VAR1 = { 'cli_config' => 'logging size', 'jobid' => '982505', 'status' => 'skip', 'component1' => 'archive-config-log', 'test_name' => 'SYNTAX.etest', 'testcase_name' => 'TC11327641669.xml', 'color_bool' => '' };

##</code><code>##

    for my $j(0..$len - 1 )
    {
        my ($component1,$cli_config,$testcase_name,$test_id,
                $test_name, $status) = split (/\,/,$test_status[$j]);

        my %row = ();
        %row = ( component1 => $component1,
            cli_config => $cli_config,
            testcase_name => $testcase_name,
            test_name => "$test_name",   ### This IS THE ONE
            status => $status,
            jobid  => $jobid,
        color_bool => $color);

        print Dumper \%row; ##### THIS DATA SHOWN ABOVE

        if( $row{test_name} =~ "BEFORE-AFTER" )
        {
            push(@loop6,\%row);
        }
        elsif( $row{test_name} =~ "DEFAULT" )
        {
            push(@loop7,\%row);
        }
        elsif( $row{test_name} =~ "ORDER-ROLLBACK" )
        {
            push(@loop8,\%row);
        }
        elsif( $row{test_name} =~ "PRCIII" )
        {
        print "PRCIII------";
            push(@loop9,\%row);
        }
        elsif( $row{test_name} =~ "ROLLBACK" )
        {
            push(@loop10,\%row);
        }
        elsif( $row{test_name} =~ "SIDE-EFFECTS" )
        {
            push(@loop11,\%row);
        }
        elsif( $row{test_name} =~ "SYNTAX" )
        {
            push(@loop12,\%row);
        }
    }