if ($line=~ /(\d{1,3},\d{3,3},\d\d\d K)/){       # e.g. 3,373,560 K
       $processname=" $`";   # matches before string
       $memory = $&  ;         # $& matches the string

##</code><code>##

print "$memory --- $processname <br>\n";

##</code><code>##

 push(@allprocesses, $memory => " - $processname <br>",);
$memory = "";          # empty variable
$processname = "";     # empty variable

print "<td width=\'400\' height=\'15\'>Unsorted Array:  <br> @allprocesses </td> \n" ;

##</code><code>##

 
%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";

##</code><code>##

 
 @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" ;