Select Code to Download

sub TIEHANDLE($;$) 
{
...
    my $ref = shift;
    return @{$ref} > 1 ? ">Seq" . ++$ref->[-1] . "\n" . shift (@{$ref}
+) . "\n" : undef;
}

use Tie::Handle::FromArray;

my $fh = new Tie::Handle::FromArray ( ["AAAAAAAAAAAAAAA", "AAAAAAAGGAA
+ACCA"] );
while (<$fh>) { print; }

>Seq1
AAAAAAAAAAAAAAA
>Seq2
AAAAAAAGGAAACCA