while (my $foo = <BAR>) {
  # use $foo
}