Help for this page

Select Code to Download

Select or download this

use strict;
my @items=qw(A B C a b c);
...
foreach my $item (@items){
    print "$item\n";
    }

Select or download this
```
A
a
...
b
C
c
```