Help for this page

Select Code to Download

Select or download this

foreach my $value (('a', 'b', 'c')) {
  $value .= '1';
  print "$value\n";
}

Select or download this

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

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