while ( <FA> ) {
    ...
    while ( $tot-- and defined(my $id = shift @{ $ts{$timestamp} }) ){
        print join(",",$life, $id, $cls )."\n";
    }
}