Select Code to Download

my (%hash);

...

foreach my $sorted_url ( reverse sort { $hash{$a}->{'hits'} <=> $hash{
+$b}->{'hits'} } keys %hash){
        print $sorted_url, " has got ", ${hash}{$sorted_url}{hits}, " 
+hits \n";

# -|print_topic|------------------------------------------------------
+---------
# Pre : t_topic
...
    close INFILE;     
 }