use Tie::Handle::FromArray;

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