I think this would be better written as:

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" }
}
[download]