http://www.perlmonks.org?node_id=450230


in reply to Re: Hamming Sequences and Lazy Lists
in thread Hamming Sequences and Lazy Lists

No need to populate values, though.
return sub { my $next = min keys %pool; @pool{ map { $next * $_ } @factor } = (); delete $pool{$next}; return $next; };

Caution: Contents may have been coded under pressure.