for $i (1 .. $num_responses) { 
        $file = ">response_".$i; 
        open(FILE, $file) or dienice("cannot open file : $_[0] $!"); 
        }