use Devel::Peek; Dump $step; my $mid = $lupdate % $step ;