my $line = <DATA>;
map { print $line } 1..500;
__DATA__
I will not throw paper airplanes in class.