Select Code to Download

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

foo for @list;

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

foo @list;