Perl : Filehandles in 2D Array

# ------ These are the modules used at the top of my script -----------
use strict;
use CGI;
use CGI::Carp;
use File::Basename;
use MIME::Base64;
use MIME::Lite;
use MIME::Types qw(by_suffix by_mediatype import_mime_types);
use Encode::Byte;
use Captcha::reCAPTCHA;
#---------------------------------------------------------------------------


my $upload_dir = '\\MyDirectory\SubDirectory';
my $filename_characters = 'a-zA-Z0-9_.-';

    my @upload;

    @upload[0] = [$q->param("Uploads")];    # set first row of 2D array to the webform filenames selected.
    @upload[1] = [$q->upload("Uploads")];   # set the second row of the 2D array to the webform filehandles
    
    for (my $i=0; $i<=$#{$upload[0]}; ++$i)
        {       
            # Validate file name and modify if needed
            my ($filename,undef,$ext) = fileparse($upload[0][$i],qr{\..*});
            
            # append extension to filename
            $filename .= $ext;
            # convert spaces to underscores "_"
            $filename =~ tr/ /_/;
            # remove illegal characters
            $filename =~ s/[^$filename_characters]//g;
            
            # satisfy taint checking
            if ($filename =~ /^([$filename_characters]+)$/) 
                {
                    $filename = $1;
                }
            else
                {
                    error("The filename is not valid. Filenames can only contain these characters: $filename_characters")
                }
        
            my ($mime_type, $encoding) = by_suffix($filename);  # Get file Mime Type and Encoding for the email attachement
            
            # Open file, write data to file, close file. 
            open (UPLOADFILE, ">$upload_dir/$filename") or error("Can't open/create \"$upload_dir/$filename\": $!");
            
             #THIS IS WHERE I'M HAVING PROBLEMS
            binmode UPLOADFILE;
            while ( <$upload[1][$i]> ) {
                print UPLOADFILE;
            }
            close UPLOADFILE;
    
        # Attach file to email            
        $msg->attach(        Type            =>$mime_type,
                            Path             =>"$upload_dir\\$filename",
                            Filename        =>"$filename",
                            Encoding        =>$encoding);
                            
        }  # Loop back for next file.
    
    $msg->send('smtp', 'smtp.server.com', Timeout=>30);

my $fh = $upload[1][$i];  # Set file handle to variable
			
	binmode UPLOADFILE;  # Write file to server
	while ( <$fh> ) {
		print UPLOADFILE;
	}
	close UPLOADFILE;

<input type="file" name="Uploads" id="uploadFile" multiple>