if (! param )
  { show_form();      }
elsif (defined param ('file_chosen))
  { parse_text();     }
elsif (defined param('$temp_name'))
  {print print_results(); }

##</code><code>##

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'); 
}
}
}