my $foo = 1;
 
# post decrement (printed and then decremented to 0)
print $foo--; # prints 1
print $foo;   # prints 0