my @a = map { rand(10) }(1..100);
print $a[int(rand(100))];

__OUTPUT__
4.65349565896584