sub save_button {


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