open WRITEFILE, ">>", "$time.txt" or die "$time.txt: $!";
my $format = " %10s %10s\n";

printf WRITEFILE $format, $totalexpenses[$_], $totalcosts[$_] for (0..$#totalcosts);

close WRITEFILE;