sub countFromBy{ my( $from, $step ) = @_; return promise{ $from += $step } };; ... $counter = countFromBy( 123, 2 );; ... say &$counter for 1 .. 10;; 125 127 129 131 133 135 137 139 141 143