my @array = qw/1 2 3 4/;
foreach my $elem ( @array ) {
   $elem *= 5;
}
print join " ",@array,$/;
__OUTPUT__
5 10 15 20