my @source = (1..10);
my $scale = <>; # get user input
my @result = map { $_ * $scale } @source;
print "original: @source\n";
print "scaled by $scale: @result\n";
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.