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