%memhash=@allprocesses;
  $anz=keys(%memhash);
  print "Pair of Hashes: $anz <br>\n";
  foreach $key ( sort {$b <=> $a} values %memhash){         
$help1 = " $keys$memhash{$keys}";
print "Memory: $key Name: $help1 <br> \n";