[perl] 算參照陣列的count

print Dumper $results;
results:$VAR1 = [
          {
            'num' => '118',
            'bday' => '1972-01-25'
          },
          {
            'num' => '123',
            'bday' => '1978-08-16'
          }
        ];

法1:

print "count:",scalar( @$results );

法2:

my $count = 0;

foreach my $r ( @$results ) {

    $count ++;

}

print "count:",$count;