$value = $storage_book->{$sheet}->{$row}->{$col};
if ($value =~ /sales!/i)
{
    print "The culprit cell is at $row:$col\n";
}
$dest_sheet->write($row, $col, $value);