sub DoList {
    my $List = $_[0]; # first element in @_
    my ($tmp, $var) = @_[3,4];
    $_[1]    = `$List $tmp`;
    $_[2]    = `$List $var`;
}