baby perl 6 python translation

my @grid =
    -1, 1,  1,
     0, 1,  0,
    -1, 1, -1,
;

my @lines =
    [0, 1, 2],
    [3, 4, 5],
    [6, 7, 8],
    [0, 3, 6],
    [1, 4, 7],
    [2, 5, 8],
    [0, 4, 8],
    [2, 4, 6],
;

for 1, -1 -> $player {
    for @lines -> $line {
        if @grid[$line[0 & 1 & 2]] == $player {
            say "Player $player has won on line $line!";
        }
    }
}