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++; } }