foreach my $sheet (keys %$storage_book){
      $dest_book->addworksheet($sheet);
    }

    my $index = 0;
    foreach my $sheet (keys %$storage_book){
      my $dest_sheet = ($dest_book->sheets())[$index++];

    ...