$old = (0 == ($time - $start) % $period) ? $time : $old;
  ...
  my ($size , ... ) = (scalar @raw);