...

    my $isbn_format = $workbook->add_format(num_format => '00000');

    for my $row (3..10)
    {
        $worksheet->write($row -1, 0, $row, $isbn_format);
    }