Ah .. So you could do this at the beginning:

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

And then while you're looping over the cells to write out the HTML:

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