my $res = $dbh->selectall_hashref($stmt, $key);
print scalar(keys %$res);
[download]

or

my $res = $dbh->selectall_arrayref($stmt);
print scalar(@$res);
[download]

just try read the f... manual. ^^