foreach (@array) {
    local $_ = $_;  # Change 'local' to 'my' in 5.10.
    ...
}