open(IN, '<', "test.in") || die "\nCan't open test.in\n $!\n";
while(<IN>) {
if(<end/>){my @avalues;
        if(/<ref id="(.*?)">/){
           @avalues = (@avalues,$1);
        }print "\nNew Group: @avalues"
        }
}
close(IN);