sub flip { !($_[0]) }

##</code><code>##

$flop=flip($flop);