# change this
my ($qnum,$code,$ctext,$ntext,$stext);

# to 
my ($qnum,$code,$ctext,$ntext,$stext)=('','','','','');