The other approach is to avoid letting foreach default to using $_, and avoid passing $_ as an implicit argument (which your code doesn't seem to do, though I suspect you may have meant to open $_ instead of $0).

    foreach my $element ( @array ) {
        print "\"$element\"\n";
        do_something($element);
    }

An explicit loop variable helps express the code's intention, which helps when some poor fool has to pick up the code six months later.