sub foo {
    my $var = @_ ? \$_[0] : \$_;
    modify($$var);
}

foo for @list;

##</code><code>##

sub foo {
    for(@_) {
        modify($_);
    }
}

foo @list;