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