Is it possible to create a variable in the program and store it in the file such as ($amount):
open(OUTF,">>card1.out"
or dienice("Couldn't open car.out for writing: $!"
;
$amount = "$16";
print OUTF "$FORM{'amount'}\n";
close(OUTF);
open(OUTF,">>card1.out"
$amount = "$16";
print OUTF "$FORM{'amount'}\n";
close(OUTF);