Select Code to Download

    return @retary, $count;

    return $count, @retary;
    ...
    ($count, @ary1) = read_data(...);

    return \@retary, $count;
    ...
    ($ary1, $count) = read_data(...);

    @ary1 = read_data(...);
    $num = @ary1;
OR
    $ary1 = read_data(...);
    $num = @$ary1;