for my $x (@{[]} = @arr) {
    ...
}