my %hash = ();

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

@sortiert = sort { $hash{$b} <=> $hash{$a} } keys %hash;

foreach(@sortiert)
{
   $zahl = $hash{$_};

   push(@laender, "$_|||$zahl\n");
}

for(0..9)
{
   $hier = $laender[$_];
   print "$hier<br>\n";
}