The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use v6-alpha;

say "1..6";  

my @array = <a b c>;

my $i = 0;
for @array -> $item {
    if @array[$i] eq $item { say "ok ", $i + 1 } else { say "not ok ", $i + 1 }
    $i++;
}

$i = 0;
for @array {
    if @array[$i] eq $_ { say "ok ", $i + 4 } else { say "not ok ", $i + 4 }
    $i++;
}