Select Code to Download

@result = map { print "Enter scaling factor:"; $_ * int(<STDIN>) } @ar
+ray;

@result = map { $_ * $factor } @array;