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

if you want to scale the whole thing by one factor:

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