for my $cnt (0 .. 3) { $_=; print; }