Select Code to Download

my $foo = [('') x 9];
format =
...
+-----------------------+
.
write;

my $foo = [('') x 9];
push @$_, $foo for \@f1,\@f2,\@f3;
...
+-----------------------+
.
write;