$ClusterHostList{'/saconfig/current/cluster1'} = ['localhost','eh050su2'];

&getClusterHostCount('/saconfig/current/cluster1');

sub getClusterHostCount {
  print "******************entering getclusterhost count\n";
  my $clusterID = shift;
  my  $hostcount =  scalar @{ $ClusterHostList{$clusterID} } ;
  print "count = $hostcount\n";
  return $hostcount;
}

##</code><code>##

******************entering getclusterhost count
count = 2