use GiantModule();
use CGI;
....
my $carrier = GiantModule::lookup($phone_number);
....
exit 0;

######################
That's how the .pm looks like:

module GiantModule;
my %carrier = ( .... GIANT HASH .... );
sub lookup
{
 my $phone=shift;
 .....
 return $carrier{.....};
}