Select Code to Download

push @{ ['anonymous','array'] }, 'variable';

my $aRef= [ 'anonymous', 'array' ];
print "@$aRef\n";
push @$aRef, 'variable';
print "@$aRef\n";

my $x= 3; my $y= '3.0';
print '$x and $y have the same value'
    if  $x == $y;  # read "if" as "because"

my $x= 3;
my $y= "3";
print '$x and $y have the same value'
    if  $x eq $y;

my $x= 3;
my $y= pack "j", 3;

my $x= 3;
my $y= 3;
my $z= "$y";

use vars qw< $x >;
my $y;
*x= \$y;

use vars qw< $x >;
{
...
    }
}
print $x;

sub blog {
    my( $x )= @_;
...
$x = 1
$x = 0
$x still 1

use vars qw< $x >;
$x= 'glo';
...
    print $$y;          # 'glo'
    print eval '$'.$y;  # 'lex'
}