while( ) { processLine( $_ ) } ##

##

  return (%hashed);

##

##

  my (%trec) = &hash_array(@arr);

##

##

  my (%trec) = &hash_array(@arr);
     
  return (%trec);
}

##

##

my (%trec) = &line2rec($line);

##

##

  if ($trec{'active'})

##

##

my @data;
while(  ) {
     /active/ and push @data, $_;
}