Select Code to Download

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

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