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