my @unique_pssns = grep { not exists $assns{$_} } @pssns;

   print("The following PSSNs have no corresponding ASSNs:\n");
   print("$_\n") foreach @unique_pssns;