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

foo for @list;