@a = qw( a e i o u );
# indices are 0, 1, 2, 3, 4

$x = int rand @a;
# $x is a random integer
# st 0 <= $x < @a
# where @a is 5
# thus, 0 <= $x < 5
# thus, $x is from 0 to 4