use strict;
use warnings;
use Devel::Peek;

print "First\n";
Dump($_) for (1..2);

print "Second\n";
Dump($_++) for (1..2);

print "Third\n";
Dump($_++) for (1..2);

print "Fourth\n";
Dump($_) for (1..2);

print "Fifth\n";
Dump($_) for ( (undef, undef) = (1..2) );