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

##</code><code>##

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