sub main {
      my $csv = Text::CSV_XS->new;
      for (@files) {
          open my $io ,"<",  "$directory/$_"  || die "you suck\n";
         DOIT:  while (my $it = $csv->getline ($io)) {
                  my (%rec,%HoH);
                  my $p;
                  chomp;
                  $t_counter++;
                  my @fields = @$it;
                  if ($fields[0] =~ /^STOP/) {
                       @rec{@attrs_sto} = @fields[0,1,13,14,16,20,33,34,36,67];
                       if ($rec{_i_pstn_trunk}) {
                              $p = extract($rec{_i_pstn_circuit}, $rec{_i_pstn_trunk});
                              $HoH{$p} =  \%rec;
                       } elsif ($rec{_e_pstn_trunk}) {
                              $p = extract($rec{_e_pstn_circuit}, $rec{_e_pstn_trunk});
                              $HoH{$p} =  \%rec;
                       } else {
                              next DOIT;
                       }
                  } elsif ($fields[0] = /^START/) {
                       @rec{@attrs_sta} = @fields[0,1,11,15,28,29,31,53];
                       if ($rec{_i_pstn_trunk}) {
                         $p = extract($rec{_i_pstn_circuit}, $rec{_i_pstn_trunk});
                         $HoH{$p} =  \%rec;
                       } elsif ($rec{_e_pstn_trunk}) {
                          $p = extract($rec{_e_pstn_circuit}, $rec{_e_pstn_trunk});
                          $HoH{$p} =  \%rec;
                       } else {
                          next DOIT;
                       }
                  } elsif ($fields[0] =~ /^ATTEMPT/)  {
                       @rec{@attrs_att} = @fields[0,1,11,13,17,30,31,33,57];
                       if ($rec{_i_pstn_trunk}) {
                          $p = extract($rec{_i_pstn_circuit}, $rec{_i_pstn_trunk});
                          $HoH{$p} =  \%rec;
                       } elsif ($rec{_e_pstn_trunk}) {
                          $p = extract($rec{_e_pstn_circuit}, $rec{_e_pstn_trunk});
                          $HoH{$p} =  \%rec;
                       }  else  {
                          next DOIT;
                       }
                  } else {
                       next DOIT;
                  }
                  push @data, \%HoH;
          }
}