Select Code to Download

foreach my $key (keys %pssn) {
   if (not exists $assn{$key}) {
...
      push(@array, $val);
   }
}