Select Code to Download

my ($Results1, $Results2);
&DoList($List, $Results1, $Results2, $tmp, $var);

sub DoList {
    my $List = $_[0]; # first element in @_
...
    $_[1]    = `$List $tmp`;
    $_[2]    = `$List $var`;
}