sub main {
    my $csv = Text::CSV_XS->new;
    for( @files ) {
        open( NOW , "$directory/$_" ) || die "you suck\n";
        while( <NOW> ) {
            chomp;
            my( %rec, %HoH, $p );
            $t_counter++;

            my( $attrsRef, @selectedFields ) =
                /^STOP/     ? ( \@attrs_sto, 0,1,13,14,16,20,33,34,36,67 ) :
                /^START/    ? ( \@attrs_sta, 0,1,11,15,28,29,31,53       ) :
                /^ATTEMPT/  ? ( \@attrs_att, 0,1,11,13,17,30,31,33,57    ) :
                $ncounter++;
            ;

            my %rec{ @$attrs_ref ) = @fields{ @selectedFields );
            my $p =
                $rec{ _i_pstn_trunk } ? extract( $rec{ _i_pstn_circuit }, $rec{ _i_pstn_trunk } ) :
                $rec{ _e_pstn_trunk } ? extract( $rec{ _e_pstn_circuit }, $rec{ _e_pstn_trunk } ) :
                $ncounter++
            ;

            $csv->parse( $_ );
            my @fields = $csv->fields;

            push @data, \%HoH;
        }
        close NOW;
    }
}