my @order = sort { $b <=> $a } @values;
my $lenval = 1 + int log($order[0]) / log 10; # max string length
my $len = 1 + max map { length } @lines; # left padding
my @order = sort { $b <=> $a } @values;
my $lenval = 1 + int log($order[0]) / log 10; # max string length
my $len = 1 + max map { length } @lines; # left padding