perl -e '@nums=(1..100); $user=<>; print "original\n"; foreach ((0+@nums)) { print "@nums";} print "\n\n"; print "scaled: "; foreach my $num (@nums) { print $user*$num . " ";}print "\n";'