http://qs1969.pair.com?node_id=219800


in reply to array help

Here is a nice little one-liner I hack up just for kicks.
perl -e '@nums=(1..100); $user=<>; print "original\n"; foreach ((0+@nu +ms)) { print "@nums";} print "\n\n"; print "scaled: "; foreach my $nu +m (@nums) { print $user*$num . " ";}print "\n";'
Happy Hacking GNU/HDE