File Perl

open (FILEHANDLE, ">format.txt") or die ("Cannot open format.txt");
format FILEHANDLE =
@<<<<<<<<<<<@>>>>>>>>>>>>>>>
$text1      $text2
.
$text1 = "Hello";
$text2 = "there!";
write FILEHANDLE;
close (FILEHANDLE);