open  WRITEFILE , ">>$time.txt" or die "write error\n";
my $format = " %10s\n" x @totalexpenses . "%10s\n" x @totalcosts;
printf WRITEFILE  $format, @totalexpenses , @totalcosts;
close WRITEFILE; 
}