"Сегодня без..." - точка, превратившаяся в запятую

Чтобы диалектически соединить на новом витке последнюю заметку (Сегодня без того - не знаю чего) с первыми из цикла заметок "Сегодня без...", написал нижеприведенный код.

 sub sum(&$@);
 sub sum(&$@) {
  my $sub = shift;
  my ($sum, $h, @t) = @_;
  if (defined $h) {
   sum { $sub->(@_) } $sum + $h, @t;
  } else {
   $sub->($sum);
  }
 }
 
 my @vector = 1 .. 5;
 sum { print shift } 0, @vector;

Вот только эта точка, поставленная в конце цикла заметок "Сегодня без...", превратилась в запятую!