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