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";'
[download]

Happy Hacking GNU/HDE