//,print map($h{$_/$'}++?$":t,@a),$/for@a=1..<>