for ($upload) {
    if    (/^start$/) { &copy_tftp_start; }
    elsif (/^run$/)   { &copy_tftp_run;  }
    else { die "Your destination choice for Uploads does not appear to be valid.\n" }
}