while(defined(my $foo = <IN>)) { print "file $in contains $foo"; }