for ($loop=1; $loop <= $form{'files'}; $loop++){
        if ($form{"img$loop"}){
print STDERR "in if: form var img${loop} is $form{img${loop}}\n"
  if $debug > 15;
...
print STDERR "done mussing: form1 img$loop is $form1{img${loop}}\n"
  if $debug > 10;
print STDERR "opening: form filename is $form{filename}\n"
  if $debug > 20;
open(FILE, ">$form{'filename'}/$form1{\"img$loop\"}") 
  or die "can't open ", "$form{filename}/$form1{img${loop}}", ": $!";
while ($bytesread=read($file,$buffer,1024)) {
print STDERR "while: read $bytesread\n" 
  if $debug > 20;

##</code><code>##

my $this_loop = "img${loop}";
$hash{$this_loop} = ...

##</code><code>##

my $img_file = "$form{filename}/$form1{$this_loop}";
open(FILE, ">$img_file") or die "can't open $img_file: $!";