print "I will not throw paper airplanes in class." x 500;

print map 'I will not throw paper airplanes in class', 1 .. 500;

$_="I will not throw paper airplanes in class\n";

print while $i++ < 500;

sub f { print and f($_[0] + 1) if $_[0] < 500 } f();
[download]