$x = 1;
print "The value of \$x is $x\n";
$x = $x + 2;
print "The value of \$x is $x\n";
$x = $x * 2;
print "The value of \$x is $x\n";
$x = $x / 3;
print "The value of \$x is $x\n";
$x = $x - 1;
print "The value of \$x is $x\n";
$x++;
print "The value of \$x is $x\n";
$x--;
print "The value of \$x is $x\n";