sub format_cell { my ($self, $format, @days) = @_; # @days lets you apply formatting to more # than one date at a time. foreach (@days) { $self->{'cell_format'}[$_] = $format; } }