my $fh = Tie::Handle::FromArray->new(\@array);

##</code><code>##

my $fh = Tie::Handle::FromArray->new([
   map { ">Seq".$seq_id++."\n", "$_\n" } @array
]);