my @whirley = map chr, qw/32 176 177 178 219 178 177 176/;

##</code><code>##

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

##</code><code>##

    return "@whirley[$WHIRLEY_COUNT]";

##</code><code>##

    return $whirley[$WHIRLEY_COUNT];