Perl "write" command format?

#!/usr/bin/env perl
# File:     ewrite.pl
#
use strict;
 
my ($ft_v1, $ft_v2, $ft_v3, $ft_v4);
my $title="Title Goes Here";
 
# ----- REPORT FORMATING -----
format =
  @<<<<<<<<<<<<<<<<<<<<<<<  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  @>>>>>>>>>>>>>  @>>>>>>>>>>>>>
  $ft_v1,                   $ft_v2,                          $ft_v3,         $ft_v4
.
 
# ----- PRIVATE SUB-FUNCTION DEFINITION -----
sub init_app
{
  print "\n\t\t[ $title ]\n\n";
 
  $ft_v1 = '=' x 20;
  $ft_v2 = '=' x 52;
  $ft_v3 = '=' x 22;
  $ft_v4 = '=' x 22;
  write();
 
  $ft_v1 = '=' x 20;
  $ft_v2 = '=' x 52;
  $ft_v3 = '=' x 22;
  $ft_v4 = '=' x 22;
  write();
}
 
# Start application:
init_app();
 
### We are ready to exit
exit 0;