p6.p6

my @nicks = <n1 n2 n3>;
my $current-nick = @nicks[0];

loop {
    say "Current nick is $current-nick";
    my $idx = 0;
    for @nicks.kv -> $i, $n {
        next unless $n eq $current-nick;
        $idx = $i + 1;

        $idx = 0 if $idx == @nicks;
    };
    sleep 3 if $idx == 0;
    $current-nick = @nicks[$idx];

    last if $++ > 7;
}