sub genBufferedGetNum {
    my @buf = do{ local $/ = \4096;  split ' ', scalar <>; }
    my $leftover = pop @buf;
    return sub {
        unless( @buf ) {
            unless( eof  ) {
                @buf = do{ local $/ = \4096; split ' ', $leftover . <> };
                $leftover = pop @buf;
            }
            else {
                die 'premature eof' if $leftover != 0;
                return $leftover; # last number
            }
        }
        return shift @buf;
    };    
}

my $getNum = genBufferedGetNum();

while( my $num = getNum->() ) {
    ## do stuff
}