use strict; use warnings; my $count = keys %myobjtdets; - hash created from query print "$count"; - results in the number 63 exit; ##

##

print "

";
print "
FtchObjtDets

";
foreach my $mykey (sort keys %myobjtdets) { print "$mykey  - $myobjtdets{$mykey}
"; }
print "";
exit;