my $nr = 0;
$nr++ while $sortedkeys[$nr] < $test;