for my $nm (in $Book->Names){
  my $rng = $ws->Range($nm);
  printf "%s %s\n", $nm->{'Name'},$rng->{'Value'};
}