if (exists $hash2{$celln[$o]} && $celln[$o]=~ /^[5]+$/) {
								 
                                                  $worksheet->write($r, 0, $hash2{$celln[$o]});
					                              $worksheet->write($r11, 1, $celln[$o]);
                    # print "Arrays are different\n";
                            }