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