ゴルフの結果

h=Hash.new(0);while s=gets;h[s.strip]+=1;end;h.map{|k,v|$><<k+" ";p v}

結果は71B
これをIRCで聞いてみると、

h=Hash.new(0);h[$_.chop]+=1while gets;h.map{|e|puts e*" "}

結果は58B
1while とか puts e*" "のあたりがキモですね。
usaさんのは結果がp hとかのやつのようです。
整形するとこんくらいになるようですね。
もっと短くできる人は教えてください。