Yet another way... use a closure...

use strict;
my $n = do{ my $x=0; sub{$x++} };

print "[".join("][", &$n, &$n, &$n)."]\n
[download]

my @a=qw(random brilliant braindead); print $a[rand(@a)];