#!/usr/bin/perl;
use strict;
use warnings;
use Data::Dumper;

use lib '/home/rahul/Documents/';
use script::readxmlcid qw(get_child_node_value);
use XML::LibXML;
my $dom = XML::LibXML->load_xml(location => $ARGV[0]);

my @forms_required = ("createnewcid", "customerform");
foreach my $config_forms (@forms_required) {
  my @child_node_values_fill = get_child_node_value($config_forms);
  print Dumper $config_forms,\@child_node_values_fill;
}