map { print "file $in contains $_"; } <IN>;