sub parsing {
    my ( $twig, $account ) = @_;
    my @tags = qw(
    	Id
    	OwnerFirstName
    	OwnerLastName
    );
    my %hash = map { $_ => $account->findvalue($_) } @tags;
    validate( \%hash );
}

sub validate {
    my ( $hash ) = @_;
    if ( $hash->{'Id'} eq 'abcd' ) {
    	print "Id $hash->{'Id'} is valid\n";
    }
    else {
    	print "Id $hash->{'Id'} is not valid\n";
    }
}