my (@dat) = ();
	
open (DATF, "<$file_name");	
while( <DATF> ) {
  my ($line) = $_;
  chomp($line);
  my (%trec) = &line2rec($line);

  # just do some filtering here
  if ($trec{'active'})
   {
   }
  
  # just testing to move every data line into array
  push (@dat, $line);
}

close(DATF);