format FILE =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$var1
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$var2
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$var3
------------------------------------------------------------
------------------------------------------------------------
.

$var1 = "11111111111111111111".
        "11111111111111111111".
        "11111111111111111111".
        "11111111111111111111".
        "11111111111111111111".
        "11111111111111111111".
        "11111111111111111111".
        "11111111111111111111".
        "11111111111111111111";

$var2 = "22222222222222222222".
        "22222222222222222222".
        "22222222222222222222".
        "22222222222222222222".
        "22222222222222222222".
        "22222222222222222222".
        "22222222222222222222".
        "22222222222222222222".
        "22222222222222222222";

$var3 = "33333333333333333333".
        "33333333333333333333".
        "33333333333333333333".
        "33333333333333333333".
        "33333333333333333333".
        "33333333333333333333".
        "33333333333333333333".
        "33333333333333333333".
        "33333333333333333333";

open (FILE, "> file.txt")
    or die "Could not open file\n$!\n";

while ( ($var1 ne "") and ($var2 ne "") and ($var3 ne "") ){
    write FILE;