my $cellsWithHyperlinks = {};
$cellsWithHyperlinks->{ $_->Column }->{ $_->Row }++
  for map { $Sheet->Hyperlinks($_)->Range } 1 .. $Sheet->Hyperlinks->Count();

##</code><code>##

foreach my $col ( 1 .. 10 ){
  warn "Col # $col has hyperlinks somewhere" if exists $cellsWithHyperlinks->{$col};
  foreach my $row ( 1 .. 10 ){
    warn "(Col,Row)=($col,$row) has a hyperlink" if exists $cellsWithHyperlinks->{$col}->{$row};
  }
}