in reply to Need help with number generator
mmmm...ternary
($x) = map { $_<1 ? 2 : $_<2 ? 3 : 1} rand 9; [download]