#!/usr/bin/env perl                                                                                 

use strict;
use warnings;

# my @array = split('',  join "", ( "A" x 20, "T" x 20, "C" x 30, "G" x 30 ) );

# my @array = split '', join '', ( "A" x 20, "T" x 20, "C" x 30, "G" x 30 );

my @array = split '', join '', "A" x 20, "T" x 20, "C" x 30, "G" x 30;

print  scalar @array . qq(\n);

print for @array;

__END__