%memhash=@allprocesses;   
               $anz=keys(%memhash);
               print "Pair of Hashes: $anz <br>\n";
               foreach $memkey ( sort{$b<=>$a}keys %memhash){
                   $name = "$values$memhash{$memkey}";
                    if ($memkey <500000) {                                 # value less then 500.000 byte
                    print "$memkey -- Name: $name \n";
                                 }
                                 else {                                 # values above 500.000 byte in Red                                 print "<h4>$memkey </h4>-- Name: $name \n";
                                      }