Multidimensional hash lookup is disabled at /Users/chap/private/perl/regcommon line 8, near "'/'}"