sub TIEHANDLE($;$) 
{
    my $pkg = shift;
    my $ref = shift || [];
    push @{$ref}, 0;

    bless( $ref, $pkg );
}

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

##</code><code>##

use Tie::Handle::FromArray;

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

##</code><code>##

>Seq1
AAAAAAAAAAAAAAA
>Seq2
AAAAAAAGGAAACCA