# 1
my @x = ( \$_, \$_ );

# 2
sub foo { print "Agree :-)\n" }
{foo;redo}

# 4
dump()

##</code><code>##

# 5
sub foo {
    my $x if 0;
    ++$x;
}