while(@arr) {
    my ($x,$y) = (shift(@arr), shift(@arr));
    ...
    }