Benchmark these two and pick your favorite. substr($a,0,36) eq substr($b,0,36) or unpack('A36', $a) eq unpack('A36', $b). If those aren't fast enough then consider implementing your compare function in C and call out to it using Inline::C.