#clear table
sub clear_table{
 foreach my $row(1..$rows){
    foreach my $col(1..$cols){
     $arrayVar->{"$row,$col"} = "";
   }
 }
}