my @a = (1) x 1024; print $_, "\n" for @a;