Select Code to Download

use strict;
use warnings;
...
for (sort keys %chars) {
    printf "%s\t%d\t%.3f\n", $_, $chars{$_}, $chars{$_} / $total; 
}