} elsif($gateway_cluster) {
   #print "adding gwc :$addr: :$fqn: :$customer_name: :$object_name: :$fw_ver:\n";
   $cluster_info{$addr} = {
      fqn            => "$fqn",
      customer_name  => "$customer_name",
      cluster_name   => "$object_name",
      fw_ver         => "$fw_ver",
   }
#} elsif.....

##</code><code>##

print "##############################################################\n";
   if(VERBOSE) {
      my $counter = 1;
      print "The cluster_info tables:\n------------------------\n";
      while ( my ($IP, $hashref) = each %cluster_info) {
         printf "%-3s %-20s %-18s %s", "$counter", "cluster IP:", ":$IP:", "\n";
         for my $param ( sort keys %{ $hashref } ) {
            printf "%-20s %-18s %s", "$param" . ":", ":$cluster_info{$IP}{$param}:", "\n";
         }
         $counter++;
         print "=====================================================\n";
      }
   }

##</code><code>##

print "size of hash:  " . keys( %cluster_info ) . ".\n";