my %werte = ( 
              'NNO' => [0..29], 
              'NO'  => [30..59], 
              'NOO' => [60..89], 
              'SOO' => [90..119], 
              'SO'  => [120..149], 
              'SSO' => [150..179], 
              'SSW' => [180..209], 
              'SW'  => [210..239], 
              'SWW' => [240..269], 
              'NWW' => [269..299], 
              'NW'  => [300..329], 
              'NWW' => [330..359] 
              ); 
 
 
while (<DAT>) {							 
     if ($. == 1) {                                              
     ($xtitle, $ytitle) = (split /;/)[1,0];                   
     chomp($xtitle);} 
 
else{ 
   
  (@spalte) = split(/;/,$_); 
 
  my ($grad) = /\d+;(\d+)/;#hol dir die zweite Zahl in der Zeile 
  for (keys %werte) {	   #teste im ganzen Hash %werte 
 
# wenn $grad sich im Wertebereich von $werte{$_} befindet, dann 
# erhoehe $hdaten{$_}, wobei $_ z.B. NO oder NNO oder SO etc. ist. 
#In %hdaten werden also die Haeufigkeiten fuer die einzelnen Richtungen gezaehlt. 
     
if($grad >= $werte{$_}[0] && $grad <= $werte{$_}[-1]) {$hdaten{$_}++}; 
 } 
$gesamt++; 
} 
 
} 
for (keys %hdaten) { 
  push @{$daten[0]},$hdaten{$_}=($hdaten{$_}*100)/$gesamt; 
  push @{$daten[1]},$hdaten{$_}; 
} 
 
close DAT; 
 
[\code] 
 
Leider stimmt die Ausgabe auf der x-achse nicht. Es sollen die Bezeichnungen 'NNO,'NO'... ausgegeben werden und zwar in einer bestimmten Reihenfolge und zwar so wie sie im Hash %werte stehen. 
Habe leider keine Idee wie. 
 
Vielleicht kann mir mal wieder jemand helfen. 
 
LG Muse