foreach $key(keys %pssn){
  foreach $key1(keys %assn){
    if ($key ne $key1){
     push(@array,$key);}
}}
foreach $val(values %pssn){
  foreach $val1(values%assn){
    if ($ val ne $val1){
     push(@array,$val);}
}}