Select Code to Download

#!/usr/bin/perl
use strict;
...
    my $inactDt = $results{ $_ }{INACTDATE};
    print "$a1,$b1,$actDt,$inactDt\n" ;
}

7900724655,200906888,20180416,20180830
7900724655,200906889,20180601,20180728
...
7900724666,200906868,20180416,20180830
7900724666,200906869,20180601,20180728
7900724666,200906890,20180905,

#!/usr/bin/perl
use strict;
...

print join(",", $previous_key, $actDt, $inactDt), "\n"
    if $count > 1;

7900724655,200906889,20180601,20180728
7900724655,200906890,20180905,
7900724666,200906869,20180601,20180728
7900724666,200906890,20180905,

7900724655,200906888,20180416,20180522
7900724655,200906889,20180601,20180720
...
7900724666,200906890,20180905,20180930
7900724666,200906890,20181005,20181030
7900724666,200906890,20181104,