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);
        }
    }