my $len = 1 + max map { length } @lines; # left padding
my $size = ($width - $lenval - $len) / $order[0]; # bar multiplication
my $len = 1 + max map { length } @lines; # left padding
my $size = ($width - $lenval - $len) / $order[0]; # bar multiplication