#$a=(--(($a++)++));            #ugly, and doesn't compile

sub mag1{                      #works, but still not pretty.
  $b=shift;
  ++$b;
}

$a = "07";
$a++;
print "should be 08: $a\n";
$a = $a + 1;
print "should be 09: $a\n";

#####OUTPUT
should be 08: 08
should be 09: 9