in getClusterHostCount$VAR1 = '/saconfig/current/cluster1';
$VAR2 = [
          'localhost',
          'eh050su2'
        ];

sub getClusterHostCount {
  print "******************entering getclusterhost count\n";
 my  $hostcount =  ( @{$ClusterHostList{ $clusterID }} ) ;
print "count = $hostcount\n";
print "in getClusterHostCount", Dumper (%ClusterHostList);
return $hostcount;
}