如何在CGI.pm中循环多次上传

Question

my @fhs = cgi->upload('nameOFtheINPUTtypeHERE')
foreach my $fh (@fhs) {
                my $type = cgi->uploadInfo($_)->{"Content-Type"};
                my $size = (stat( $_ ) )[7];
                my ($file_name)   = ($_ =~ m! ([^/\\]+) $ !x);
                my ($file_extension) = ($file_name =~ /\.(.+)$/);

}

这是我的代码，但它只能上传第一个文件，好像它不会循环遍历列表（@fhs）