I don't see $clusterID getting set, if that is not just acopy/paste error, i think thats the cause ... i used the folowing for a test :

$ClusterHostList{'/saconfig/current/cluster1'} = ['localhost','eh050su
+2'];

&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;
}
[download]

.. and suvery says ...

******************entering getclusterhost count
count = 2
[download]

Update : /me being stupid. It was set (thanks Tuna), so my other fix (scalar) was what did it.

---

_{can't sleep clowns will eat me}
-- MZSanford