sub flip { $_[0] = !($_[0]) }
# $foo will be modified below
flip($foo);