sub whirley {
    $WHIRLEY_COUNT = 0 if ++$WHIRLEY_COUNT == @whirley;
    return $whirley[$WHIRLEY_COUNT];
}