Ancora meglio...

codice:
    # Ordino...
   my @SORTED_ARRAY = sort { $HASH{$b} <=> $HASH{$a} } keys %HASH; undef %HASH;

    # Divido in pagine da 10...

    my $Current_page = 1 unless $Current_page;
    my $start = (($Current_page * 10)-1);
    my $end   = (($Current_page * 10)-10);
    my $total_page = int($SORTED_ARRAY / 10);
    my $page_prev = $Current_page - 1;
    my $page_next = $Current_page + 1;

    my @DIECI_IDS = $SORTED_ARRAY[$start .. $end]; # e' possibile??
mi date una mano?