sub get_address_policies {
	my $targetAddr = shift;
	my $targetType = shift;
	my $targetRole = shift;
	my @polMembers;

	
	foreach my $policy (keys %policies) {
		(lc($targetRole) eq "source") ? (@polMembers = $policies{$policy}[2]) : (@polMembers = $policies{$policy}[4]);

		foreach my $polMember ( @polMembers ) {
			print "$polMember\n";
		}
	}


}