Generate a bar chart with Perl:
perl -lane 'print $F[0], "\t", "=" x ($F[1] / 5)' file
Adjust the number 5 to your desired width.
(source)
A piggy bank of commands, fixes, succinct reviews, some mini articles and technical opinions from a (mostly) Perl developer.