my @qa_list = ($pagev->listFile($anslist), $pagev->listFile($unanslist));
my %questions = map { split(/\t/, $_, 2) } @qa_list;
my $answer = $cgi->param('answer');

print STDERR "$_ => $questions{$_}\n" foreach %questions;

my $questionslist = join("<br>", @qa_list);
my $aselect = $cgi->param('select');