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) );

##</code><code>##

First
SV = IV(0x86b698c) at 0x86b6990
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1
SV = IV(0x86b698c) at 0x86b6990
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 2
Second
SV = IV(0x86cf3bc) at 0x86cf3c0
  REFCNT = 1
  FLAGS = (PADTMP,IOK,pIOK)
  IV = 1
SV = IV(0x86cf3bc) at 0x86cf3c0
  REFCNT = 1
  FLAGS = (PADTMP,IOK,pIOK)
  IV = 2
Third
SV = IV(0x86dc45c) at 0x86dc460
  REFCNT = 1
  FLAGS = (PADTMP,IOK,pIOK)
  IV = 1
SV = IV(0x86dc45c) at 0x86dc460
  REFCNT = 1
  FLAGS = (PADTMP,IOK,pIOK)
  IV = 2
Fourth
SV = IV(0x86b698c) at 0x86b6990
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1
SV = IV(0x86b698c) at 0x86b6990
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 2
Fifth
SV = IV(0x86b687c) at 0x86b6880
  REFCNT = 2
  FLAGS = (IOK,pIOK)
  IV = 1
SV = IV(0x86b698c) at 0x86b6990
  REFCNT = 2
  FLAGS = (IOK,pIOK)
  IV = 2