Use Win32::OLE

my $count = $sheet->{'UsedRange'}->Hyperlinks->Count;
for my $i (1..$count){
  my $link = $sheet->Hyperlinks($i);
  printf "%-10s %-40s\n",$link->Range->Address,$link->Address;
}
[download]