in reply to Question about list context
print STDOUT (split "\t", $line)[0], "\n" ; [download]
That's not equivalent. What if someone's used one-arg select before this point?
Update: Fixed the number of arguments for that particular select call.