#!/usr/bin/perl
use strict;
use warnings;

my $currAcct = 1;
my ( $subs, $SubId )  = getsubsFromAcct( $currAcct );
my $length = @$subs;

print ("No of subs : $length and subs are @{$subs}");


sub getsubsFromAcct
{
    my $acctNum = shift;
    my @subs = ();
    my $sbscrpId = 4;

    @subs = qw| 2 3 4 5 |;
    return (  \@subs, \$sbscrpId );
}