Help for this page

Select Code to Download

Select or download this

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

# 4
dump()

Select or download this

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