イテレータ対象のsort

某codeで、

f = open(inFile)
line = f.readline() # skip header
for line in sorted(f):
	line = line.strip()
	columns = line.split("\t")

とかやったのだけど、このイテレータ対象のsortっていいな。
perlでこういうことやろうとすると、どうすればいいか誰かエロい人教えてくだしあ。