Select Code to Download

use strict;
my @freq;
...
    print qq{\n$_($freq[$_]): @{[map {"$_($ref->{$_}x)"} sort {$a <=> 
+$b} keys %{$ref}]}};
}
print "\n$total total\n";

N frequency     consecutives(times x)
0(178763622): 2(14480890x) 3(1449710x) 4(144353x) 5(14618x) 6(1459x) 7
+(146x) 8(19x) 9(1x)
...
8(178766722): 2(14483441x) 3(1448498x) 4(144450x) 5(14594x) 6(1448x) 7
+(150x) 8(18x) 9(1x)
9(178775354): 2(14481938x) 3(1446327x) 4(145687x) 5(14591x) 6(1480x) 7
+(157x) 8(10x) 9(2x)
1787595999 total