#!/usr/bin/perl
use strict;
use warnings;

use constant HEAD =>  0;
use constant TAIL => -1;

my $end = shift || 10;
my @num = @ARGV ? @ARGV : (2, 3, 5);
my $next = merge_multiple( \@num );

print $next->(), "\n" for 1 .. $end;

sub merge_multiple {
    my $list = shift;
    return () if ! $list || ref $list ne 'ARRAY';

    my $n = 1;
    my $h = $list->[TAIL];
    my (@pool, @stream);

    return sub {
        return shift @pool if @pool;

        for ( 0 .. $#$list ) {
            my $mult = $list->[ $_ ];
            my $beg = $h * ($n - 1) / $mult + 1;
            my $end = $h * $n / $mult;
            $stream[ $_ ] = [ map { $mult * $_ } $beg .. $end ];
        }
        ++$n;

        @pool = merge( \@stream );
        return shift @pool;
    }
}

sub merge {
    my $stream = shift;
    my $end = $#$stream;

    my @merged;
    while ( 1 ) {
        my $low;
        for ( 0 .. $end ) {
            my $val = $stream->[ $_ ][HEAD];
            next if ! defined $val;
            $low = $_ if ! defined $low || $val < $stream->[ $low ][HE
+AD];
        }
        last if ! defined $low;
        my $num = shift @{ $stream->[ $low ] };
        next if defined $merged[ TAIL ] && $merged[ TAIL ] == $num;
        push @merged, $num;
    }
    return @merged;
}
[download]