my $f_change = $workbook->add_format();
$f_change->set_num_format('[Green]0.0%;[Red]-0.0%;0.0%');

$worksheet->write(2, 3, -0.015, $f_change); # negative, will be printed in red