perlfaq nodetype
faq_monk
<P>
Use <CODE>for</CODE>/<CODE>foreach</CODE>:
<P>
<PRE> for (@lines) {
s/foo/bar/; # change that word
y/XZ/ZX/; # swap those letters
}
</PRE>
<P>
Here's another; let's compute spherical volumes:
<P>
<PRE> for (@volumes = @radii) { # @volumes has changed parts
$_ **= 3;
$_ *= (4/3) * 3.14159; # this will be constant folded
}
</PRE>
<P>
If you want to do the same thing to modify the values of the hash, you may
not use the <U>values</U> function, oddly enough. You need a slice:
<P>
<PRE> for $orbit ( @orbits{keys %orbits} ) {
($orbit **= 3) *= (4/3) * 3.14159;
}
</PRE>
<P>