sub get_refs {    
        my $msg_refs = shift;
        my $msg_list = shift;
        my @parent_refs =reverse split /\s+/, $msg_refs;
        foreach my $aref(@parent_refs) {
            print STDERR "\tChecking $msg_refs\n";
            if (exists $$msg_list{$aref}){                    
                print STDERR "$_ is child of $aref\n";
                return $aref;
            }
        }            
        return undef;
    }