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

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