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