Help for this page

Select Code to Download


  1. or download this
    my $name;
for $name (qw(red blue green yellow orange purple violet)) {
...
print "red:    ${\(red())}\n";
__END__
Modification of a read-only value attempted at - line 7.
  2. or download this
    our $name;
for $name (qw(red blue green yellow orange purple violet)) {
...
print "red:    ${\(red())}\n";
__END__
red:    <FONT COLOR=''></FONT>
  3. or download this
    ----- sub used inside loop that defined it ------
trying out something wacky and wonderful: <FONT COLOR='something wacky
+ and wonderful'></FONT>