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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

use vars qw< $x >;
{
    my $x= 'one';
    *x= \$x;
    for my $x (  $x  ) {
       $x= 'two';
    }
}
print $x;

##</code><code>##

sub blog {
    my( $x )= @_;
    print "\$x = $x\n";
    if(  $x  ) {
        blog( $x - 1 );
        print "\$x still $x\n"
    }
}
blog( 1 );
__END__
$x = 1
$x = 0
$x still 1

##</code><code>##

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