longest anagram finder in julia

julianagram.jl

function doit(f::IOStream)
    wordmap = Dict{Array{Char},Array{Char}}()
    best = (0,"","")

    for line in eachline(f)
        if length(line) > best[1]
            word = collect(line)
            cannonical = sort(word)
            if haskey(wordmap,cannonical)
                best = (length(word),word,wordmap[cannonical])
            else
                wordmap[cannonical] = word
            end
        end
    end
    return best
end

f = open("sowpods.txt","r")
best = doit(f)
println(best)

f = open("sowpods.txt","r")
@time doit(f)