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