Select Code to Download

$ for J in {0,1,2,3,4,5,6,7,8,9}{0,1,2,3,4,5,6,7,8,9}{0,1,2,3,4,5,6,7,
+8,9}; do ./pm_sample_lines_from_file.pl a_million_lines 25 >t.$J; don
+e

#!/usr/bin/perl                                                       
+                                        
#
...
    }
    printf "% 3u: (% 3u) %s\n", $I, $H{$I} // 0, $bar;
}

$ ./pm_sample_histo_test.pl t.*
  0: (321) **************************************************
...
 97: (263) **************************************+*          
 98: (241) *************************************             
 99: (236) ************************************