sub new {
  my $class = shift;
  my $self = {};
  $self->{fhalpha} = new FileHandle(">alpha");
  $self->{fhbeta}  = new FileHandle(">beta");
  $self->{fhgamma} = new FileHandle(">gamma");
  ...
  bless $self, $class;
  return $self;
}