in reply to array help
if you want to scale each element:
@result = map { print "Enter scaling factor:"; $_ * int(<STDIN>) } @ar +ray;
if you want to scale the whole thing by one factor:
@result = map { $_ * $factor } @array;
In Section
Seekers of Perl Wisdom