# remove these
#my $len_item_amt = length $item_amt;
#my $len_amt_delayed1 = length $amt_delayed1;#$amt_delayed1;

# replace this line
#        my $v_pos1 = 140 + $len_item_amt;
my $w1 = $left_column_text->advancewidth($item_ant);
my $w2 = $left_column_text->advancewidth($amt_delayed1);

# replace this line
#        -x        => $v_pos1 - $len_amt_delayed1,#140 ,
        -x        => 140 + $w1 - $w2;
[download]