use strict; use warnings; my $discard = for 1 .. 2; print while ; __END__ Header 1 Header 2 Data 1 Data 2 Data 3