@array1 = (
'ux_prim_clk',
'ux_side_clk',
'ux_xtal_frm_refclk');

@array2 = (
'ccu_ux_xtal_frm_refclk_ack',
'ibbs_ux_prim_clkack',
'sbr_ux_side_clkack');


foreach(@array1){
    @array1_split_2D = map {[split /_/,$_]} @array1;
    }

foreach(@array2){
    @array2_split_2D = map{[split /_/,$_]} @array2;
    }

$match = 0;
$highest_match_rate = 0;

$array1_row_size = @array1_split_2D;
$array2_row_size = @array2_split_2D;

for ($i=0; $i<$array1_row_size; $i++)
{   
    print "\ninside first for loop\n";
    $array1_column_size = @{$array1_split_2D[$i]};

    #print "\nfirst column size = $array1_column_size\n";    
    #print "first: $first_line[$i][0]\nsecond: $second_line[$i_sec][$j]";

    for ($i_sec=0; $i_sec<$array2_row_size; $i_sec++)
    {
        $array2_column_size = @{$array2_split_2D[$i_sec]};
     
        while ($array1_column_size != $array2_column_size){
            print "\ninside while loop\n";
            print "\ncolumn size array1: $array1_column_size\n";
            print "column size array2: $array2_column_size\n";
            
            for ($j=0; $j<$array1_column_size; $j++){
                print "first[$i][$j]: $array1_split_2D[$i][$j] second[$i_sec][$j]: $array2_split_2D[
                if ($array1_split_2D[$i][$j] eq $array2_split_2D[$i_sec][$j]){
                    $match = $match + 1;
                    print "$match\n";
                }
            }
            $remove_first_column = splice @{$array2_split_2D[$i_sec]}, 0, 1;
            print "remove = $removed\n";
        }
    }
}