perl - スカラーの行数 - Perl

Question

私はこれに関する多くの記事を見てきましたが、どれも私のために働いていません. 私はこのコードを持っています -

$var1->{reference} = sql_get_rows();   


sub sql_get_rows(){
    etc
    return ($sth->fetchall_arrayref());
 };

私がしたいのは、SQL ステートメントで見つかって $var1->{reference} に格納されている行の数を知ることです (または、問題に対処するためのより良い方法を教えてもらいます。$var1->{reference} とは何かを書きました)下に収納。

warn Dumper ($var1->{reference});

'$VAR1 = [
      [
        26412502,
        'initial'
      ],
      [
        49246682,
        'title'
      ],

SQLステートメントでCOUNTを見つける方法を知っていることに注意してください。それは私が知りたいことではありません。

ありがとう