#!/usr/bin/perl

use strict;
use warnings;
use Lookup;
use Data::Dumper;

print Dumper \%devel_table;
[download]

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;
[download]