while (<$HRDATA>) {
my ($ssn,$aoid) = split(/","/)[4,2];
$ssnhash{$ssn} = $aoid;
}