print ORGIDATA $classid[$k], " ", @{$class[$k]}, " ", $location