foreach $key ((sort keys %user_hash)[0 .. $x]) {

##</code><code>##

foreach $key (sort keys %user_hash) {
   last if $key_count++ > $x;
   ...
}

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.