my @Toggles = qw(on off);

$Toggles[$flip^=1];