sub ReadPOIData
{
	open( IN, $go_POIFileName ) or die( "$go_POIFileName: $!" );
	while( <IN> )
	{
		chomp;
		my @tmp = split( /;/ );
		#   $g_POIRead{ lc($tmp[0]) } = $_;
		$g_POIRead{ lc($tmp[0]) } = [@tmp];
	}
	close( IN );
}