while (<FOO>) {}
@foo = <BAR>;
@foo = <>;
print while <>;
grep { /foo/ } <FOO>;
my @v=<$up../*.v>;
print while <<>>;
for (;<$foo>;) {}