substr($s1, 0, 1) eq substr($s2, 0, 1)