use Modern::Perl; while (my $line = ) { if ( $. % 10 == 1 ) { print $line; } for (0 .. 3) { my $important_line = ; print $important_line; } }