Select Code to Download

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

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