for ($file) {  # for aliasing too
    last unless -e;
    unless (my ret=do $_) {
    # ...
    }
}