use strict; use vars qw( %problemClassProps %MEClassProps ); sub assign_ME_problem{ my($ontCategory, $ontNumbering, $mapwd) =@_; local(%problemClassProps) = %MEClassProps; markFail($mapwd, $ontCategory, $ontNumbering); 1}