my @data = qw/AAAAAAAAAAAAAAA AAAAAAAGGAAACCA/;
my $ct = 0;
my $data = join '', map { sprintf ">Seq%d\n%s\n", ++$ct, $_ } @data;
my $SH = new IO::Scalar \$data;