<pre>&lt;html&gt;&lt;head&gt;
&lt;title&gt;baseportal Datenbank&lt;/title&gt;
&lt;/head&gt;&lt;body bgcolor=ffffff&gt;
&lt;do action=all&gt;
&lt;center&gt;&lt;a href=&quot;http://baseportal.de/cgi-bin/baseportal.pl?show=/iqws/CodeTest/Kunden&quot;&gt;Beispiel-Code&lt;/a&gt;&lt;/center&gt;
&lt;hr&gt;

&lt;perl&gt;
get &quot;Kundenname==*&quot;,&quot;Kunden&quot;;
my %summe;

#------------------------------------------------------------
while(get_next(&quot;Kunden&quot;))
{
$summe{$Kundenname}+=$Betrag; # Ums&auml;tze addieren
}
#-------------------------------------------------------------
out &quot;&lt;b&gt;Liste sortiert nach Umsatz aufsteigend&lt;/b&gt;&lt;br&gt;&quot;; 
foreach my $key (sort {$summe{$a} &lt;=&gt; $summe{$b}} keys %summe)
{
out &quot;$key : $summe{$key}&lt;br&gt;&quot;;
}
out &quot;&lt;hr&gt;&quot;;
#################### oder ####################################
out &quot;&lt;b&gt;Liste sortiert nach Umsatz absteigend&lt;/b&gt;&lt;br&gt;&quot;; 
foreach my $key (sort {$summe{$b} &lt;=&gt; $summe{$a}} keys %summe)
{
out &quot;$key : $summe{$key}&lt;br&gt;&quot;;
}
#--------------------------------------------------------------


&lt;/perl&gt;
&lt;/body&gt;&lt;/html&gt;</pre>