my %data;
    
    foreach (@executioncontents) {
        my $currLine = $_;
        my @Report = split(/\|/, $currLine);
        my $arraysize = $#Report;
        if ($arraysize == 11) {
            foreach (@Report) {
                if ($_ =~ m/--/) {
                }
                else {
                    my $timestamp = $Report[1];
                    my $testcase = $Report[4];
                    my $uename = $Report[2];
                    my $keyvalues =$timestamp."_".$uename."_".$testcase;
                    $data{$keyvalues}{serial_number} = $Report[0];
                    $data{$keyvalues}{time_Stamp} = $Report[1];
                    $data{$keyvalues}{ue_name} = $Report[2];
                    $data{$keyvalues}{test_config} = $Report[3];
                    $data{$keyvalues}{ul_dl} = $Report[4];
                    $data{$keyvalues}{status} = $Report[5];
                    $data{$keyvalues}{jiter} = $Report[6];
                    $data{$keyvalues}{throughput} = $Report[7];
                    $data{$keyvalues}{lost} = $Report[8];
                    $data{$keyvalues}{bandwidth} = $Report[9];
                    $data{$keyvalues}{duration} = $Report[10];
                    $data{$keyvalues}{failed_reason} = $Report[11];
                    
                }   
            }
        }
    }
readhash(\%data);
sub readhash {
    
    my $reff = shift;
    my %xyz = %$reff;
    my $workbook = Excel::Writer::XLSX->new( "Data");    
    my $worksheet = $workbook->add_worksheet("data");
    my @array;
    my $rows  = 14;
    foreach my $key (sort %xyz) {
        if ($xyz{$key}{ue_name} =~ m/ue|NA/)
        {
            push(@array, $xyz{$key}{ue_name});
            $worksheet->write($rows, 0, $xyz{$key}{serial_number});
            $worksheet->write($rows, 1, $xyz{$key}{time_Stamp});
            $worksheet->write($rows, 2, $xyz{$key}{ue_name});
            $worksheet->write($rows, 3, $xyz{$key}{test_config});
            $worksheet->write($rows, 4, $xyz{$key}{ul_dl});
            $worksheet->write($rows, 5, $xyz{$key}{status});
            $worksheet->write($rows, 6, $xyz{$key}{jiter});
            $worksheet->write($rows, 7, $xyz{$key}{throughput});
            $worksheet->write($rows, 8, $xyz{$key}{lost});
            $worksheet->write($rows, 9, $xyz{$key}{bandwidth});
            $worksheet->write($rows, 10, $xyz{$key}{duration});
            $worksheet->write($rows, 11, $xyz{$key}{failed_reason});
            $rows++;
        }
    }
}