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";
}

##</code><code>##

[test1]
    change_timeout = 10
    comment = foobar
    logmask = 0xffffff
    parent = thanos
    policy = perms
    policy = foobar
    queue_depth = 32
    supports_hsm = yes
    path = /test1

Policy:perms
REGEXP:image.([0-9]+).([0-9]+)
OWNER:ANY
GROUP:ANY
VSNAME:dyn{2}{1}
VSOWNER:root
Use of uninitialized value $vsowner in concatenation (.) or string at ./getconf line 395.
foo