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

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

# 4
dump()