my @first_50 = take( 50, $lazy235 ); my @again = take( 50, $lazy235 ); print "@first_50\n\n@again\n\n"; for ( map int( rand( 1000 ) ), ( 1 .. 5 ) ) { printf "%3d %d\n", $_, nth( $lazy235, $_ ); }