my @fileargs = map { "file$_" => [ $files[$_-1]] } 1..scalar @files; my $ua = LWP::UserAgent->new(); my $req = POST $url, Content_Type => 'form-data', Content => [ submit => 1, @fileargs, ];