my ( $subs, $SubId )  = getsubsFromAcct( $currAcct );
my $length = @$subs;
print ("No of subs : $length and subs are @$subs");