my $found = 0;
while (my $rec = $sth->fetchrow_arrayref()) {
   #do something
   $found = 1;
}
unless ($found) {
   # recordset was empty.
   # do something else
}