my $format = " %10s\n" x @totalexpenses . "%10s\n" x @totalcosts;