#-- filter
my (@new_dat) = ();
foreach my $line (@loaded_data) #-- loop thru all data
{
  chomp($line);
  my (%trec) = &line2rec($line);

  if ($trec{'active'})
  {
   push(@new_dat, $line);
  }
}
(@loaded_data) = (@new_dat); #-- overwrite
(@new_dat) = ();