sub whatever { . . $counter{$idx} = $time{$idx}->repeat(1000 => sub { $timev{$idx} = sprintf("%s",ctm($start_time{$idx})); }); }