my %datahash;

open(OUTFILE,">","$log");

my $ofh = select(OUTFILE);
$~ = "NEWFORMAT";
$^ = "NEWFORMAT_TOP";
$^L = "";
select($ofh);

format NEWFORMAT_TOP =
                                      -Page Number-
                                          @|||
                                           $%,
+-----------------------------------+------------+
|                                   |            |
| Data String                       |   Value    |
+-----------------------------------+------------+
.
foreach my $key (keys %datahash) {
format NEWFORMAT =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<     @###.##
$key,                                   @datahash{$key}
.
write(OUTFILE);
}