Help for this page

Select Code to Download

Select or download this

my $x;
my @a = ($x=1, $x+=1, $x-=5);
print "@a\n";
#yields:
#-3 -3 -3