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