8 lines
136 B
Perl
8 lines
136 B
Perl
|
#!c:/perl/bin
|
||
|
|
|
||
|
|
@letters = (aa..dd);
|
||
|
|
|
||
|
|
for($loopcount=0; $loopcount<82; $loopcount++)
|
||
|
|
{
|
||
|
|
print " (@letters[$loopcount]) ";
|
||
|
|
}
|