return if substr($x, 0, 2) eq substr($y, 0, 2); # Second pair not needed.