$foo{$bar}

$ref->[12]->{"susie"}

*****

$var = 'myvar';

$sym = mypack::$var;

*****

$var = 'myvar';

$sym = "mypack::$var";

*****

$BADREF = undef;

process $BADREF 1,2,3;

$BADREF->process(1,2,3);

*****

*foo += 1;     # ERROR

*****

$foo = *foo;   # make a "fake" glob value

$foo += 1;

*****

print q(The character '(' starts a side comment.)

*****

chmod 777, $filename

*****

{

    local $^W = 0;

    eval "format NAME =...";

}

*****

if ($foo = 123)

*****

if ($foo == 123)

*****

sub mod { $_[0] = 1 }

mod(2);

*****

my $foo, $bar = @_;

*****

my ($foo, $bar) = @_;

*****

open FOO || die;

*****

open(FOO || die);

*****

open FOO || die;

*****

{

    local $^W = 0;

    eval "sub name { ... }";

}

*****

$[ = 0;

$[ = 1;

...

local $[ = 0;

local $[ = 1;

...

*****

$one, $two = 1, 2;

*****

($one, $two) = (1, 2);

*****

$array = (1,2);

*****

$array = [1,2];

*****

rand + 5;

*****

rand() + 5;

*****

rand(+5);

*****

open(OUT,">$ARGV[0]") or die "Can't write to $ARGV[0]: $!";

while (<STDIN>) {

    print STDOUT;

    print OUT;

}

close OUT;

*****

