package Lookup; use strict; use warnings; require Exporter; our @EXPORT = qw(%devel_table); our @ISA = qw(Exporter); our %devel_table = ("Townhomes West" => "M", #lots more values in here, of course "Winding Creek Family" => "H", "Dayton Lane Gardens" => "H"); 1;