名前データが大量に欲しくなって

テーブルに突っ込むデータとして，名前データが欲しくなったわけです．そしたらこんな記事を発見．
http://itpro.nikkeibp.co.jp/article/COLUMN/20060131/228230/

とりあえず ruby 用に書き直してみた．重複云々の部分 (元記事の if 文) は省略しています．

NE = [
  ["","山","川","谷","田","小","石","水","大","橋","野","池","吉","中"],
  ["田","本","川","口","野","村","崎","山","島","上","浦","内","原"],
  ["順","優","恵","浩","裕","正","昭","真","純","清","博","孝","幸"],
  ["","一","二","子","美","一郎","実","義","夫","雄","太郎","彦"]
]
NUM = 1000
sel = lambda {|a| a[rand(a.size)] }
names = (0...NUM).inject([]) do |a,i|
  a << (0...NE.size).inject("") {|s,j| s << sel[NE[j]] }
end
open('output.txt', 'w') do |f|
  f.puts names
end

出力してみると，以外とそれっぽい名前になってる．