@sorted = sort({$b<=>$a}values(%memhash));

                             for ($i=0; $i<=$#sorted; $i++) {
                             my $paar = $sorted[$i];
                             print "$paar = $memhash{$paar} <br>"  ;
                                                          }
                         print "</td></tr>\n" ;