in reply to printf syntac

( " %10s\n" x @totalexpenses .%10s\n" x @totalexpenses );
                              _______   ______________
                             |                        |
                             |                        |
                             v                        v
                         " %10s\n"               @totalcosts

[download]

In Section Seekers of Perl Wisdom