while (<$fh>) {}
my @l = <STDIN>;
my @g = <*.c>;
if ($x < 3 and $y > 2) {}
$h{a} < 3; grep { 1 } <foo>; $x = <$fh>; print $_ for <*.txt>;