@another_array = map { $_ * $number_from_stdin } @large_array; #### foreach my $val ( @large_array ) { push @another_array, $val * $number_from_stdin; }