my $minval = min $order[-1], 0;
my $lenval = max map { length } @order;
my $len = defined $opt{trim} && $opt{trim} <= 0 ? -$opt{trim} + 1 :
my $minval = min $order[-1], 0;
my $lenval = max map { length } @order;
my $len = defined $opt{trim} && $opt{trim} <= 0 ? -$opt{trim} + 1 :