$line = <$filehandle>; # simple scalar variable = read op
@files = <*.c>;        # anything else is a directory glob

##</code><code>##

$tmp = $this->{THAT}->[0]->{THE_OTHER};
$line = <$tmp>;

##</code><code>##

open FH, $file1 or die;    # open it, okay ...
push @filehandles, *FH;    # push the typeglob, fine ...
open FH, $file2 or die;    # reopening it, closing the previously opened file!
push @filehandles, *FH;    # push it again

##</code><code>##

sub open_file {
  my ($self, $filename) = @_;
  local *FH;

  open FH, $filename or die "opening $filename: $!";
  $self->{FH} = *FH;
}