use Algorithm::Numerical::Sample;
my $s = Algorithm::Numerical::Sample::Stream->new;
while (<>) {
   $s->data($_):
}
my $random = $s->extract;