my $ref = sub { return int rand 1000; };
print $ref->(), $/;
print $ref->(), $/;
646
777