while ($counter<=$#doc_offset_array) { 
@temp_array = @{$array_of_arrays[$counter]};
$temp_name =$doc_offset_array[$counter];
foreach $i (@temp_array) {
print radio_group(-name=>'$temp_name', 
-values=>[@temp_array],
-linebreak=>'true'); 
}
}
}