11 lines
135 B
Perl
11 lines
135 B
Perl
|
#Format:
|
||
|
|
|
||
|
|
#foreach VARIABLE (ARRAY)
|
||
|
|
#{BLOCK}
|
||
|
|
|
||
|
|
|
||
|
|
#!/usr/bin/perl
|
||
|
|
foreach $pal ('A', 'B', 'H', 'P') {
|
||
|
|
print "Hi $pal!\n";
|
||
|
|
}
|