while ( my $v = ["this is a test" x 250] ) {


##</code><code>##

push @$ary, $v->[0];