Help for this page

Select Code to Download

Select or download this

use Data::Dumper;

...
        ) {
            $results{ $row[0] }->{ 'INACTDATE' } = undef ;
        }

Select or download this

    $results{ $row[0], $row[1] } = {
        'A1' => $row[0],
...
        'ACTDATE' => $row[2],
        'INACTDATE' => $row[3],
    }