open (REPORT, '>', 'report.txt') || 
   die "Can't open report.txt: $!";

write REPORT;

format REPORT =
@<<<<<<< @>>> @<<<<<<<<<<<<<<<<<<<<<<<<
$var1, $var2, $var3
.