$  perl
my $ref = sub { return int( rand( 1000 ) ); };


for ( 1 .. 5 ) {
print $ref->(), $/;
}

211
346
330
996
789