sub make_ap_stanza () {
    my $policy = $_[0];
    my $vsname;
    my $vsowner;
    my $owner;
    my $group;
    my $regexp;
    my $volumeset;
    my $volumeset_owner;

    print "Policy:$policy\n";
    my @attrs =  @{ $Policy_HoA{$policy} };
    foreach(@attrs){
        if(($vsname) = ($_ =~  /vs_name =\s+(.*)/)){
            print "VSNAME:$vsname\n";
            }
        elsif(($vsowner) = ($_ =~  /vs_owner =\s+(.*)/)){
            print "VSOWNER:$vsowner\n";
            }
        elsif(($filter) = ($_ =~  /filter_name =\s+(.*)/)){
            #print "FILTER:$filter\n";
            my @attrs =  @{ $RegexHoA{$filter} };
            foreach(@attrs){
               if(($regexp) = ($_ =~  /REGEXP =\s+(.*)/)){
                   print "REGEXP:$regexp\n";
                   }
               elsif(($owner) = ($_ =~  /OWNER =\s+(.*)/)){
                   print "OWNER:$owner\n";
                   }
               elsif(($group) = ($_ =~  /GROUP =\s+(.*)/)){
                   print "GROUP:$group\n";
                   }
               }
            }
   }
print "foo $vsowner\n";
}