$vowel = qw( a e i o u )[ rand 5 ];

for qw( a e i o u ) {
  # ...
}