in reply to sorting array of numbers by value
print join(" ", sort {$a <=> $b} @char_count); [download]