$a = 5;
$b = 7;
print $b + $a * ++$b;          # 48
#***********************************
@a = 1 .. 3;
for (@a) {print $_ *= 2 + $_;} 
print "@a";		    # 3 8 15
#***********************************
$a = 1;
$a % 2 ? $a += 10 : $a += 2;
print "$a";			# 13