graph

   1 #!/usr/bin/perl -l
   2 use List::Util 'max';
   3 chomp for my @r = <>;
   4 my $len = 1 + max map length, @r;
   5 my $size = (80 - $len) / max @r;
   6 print $_, ' 'x($len-length), '#'x($_*$size) for @r;