Select Code to Download

use strict;
...
        push @data, $rec;
}

my @Fields=(
...
my $person;
my $i=0;

my $ta=time();
...

my $tb=time();

my $use=1;
...
}
my $tc=time;

my $iab=$tb-$ta;
...
print "TIMES:\nab: $iab\nbc: $ibc\n";
print "COUNTS:\nab: ", $#Persons,"\nbc: ",$#Rset,"\n";

mpneves@voyager perl$ ./test.pl
...
ab: 1213
bc: 1213