foreach my $i (1 .. 4) {
    call_sub( param("upload$i") );
}