how about

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

and in your main body just do

$flop=flip($flop);
[download]