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