Hey,
thanks to all, finally i could fix it..
i renamed all $variales and came around some unclear assignments

 
%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";
                                      }
[download]