my %hash = ();
foreach my $i (@userdaten){
           my ($ort, $land) = split(/\|\|\|/, $i);
           $hash{$land}++;
}

my $x = 0;

foreach $i (sort{$a <=> $b} values %hash){
          if($x < 10){
                    print;
                    $x++;
          }
}