open my $file, ...

  open my $file, ...
  close $file;

  open my $file, ...
  while () {
  }
  close $file;

  open my $file, ...
  while (<$file>) {
    chomp;
  }
  close $file;