while ($i<=$#case) {
if ($case[$i] eq "A"){
$pntname = "$table{name}_$case[$i]";
print $pntname;}}