my $foo = [('') x 9];
format =
+-----------------------+
| @ @ @ | @ @ @ | @ @ @ |~~ 
@{ shift @f1 || $foo }
|-------+-------+-------|
| @ @ @ | @ @ @ | @ @ @ |~~ 
@{ shift @f2 || $foo } 
|-------+-------+-------|
| @ @ @ | @ @ @ | @ @ @ |~~ 
@{ shift @f3 || $foo } 
+-----------------------+
.
write;