my @array = (1..5) ; print "@array\n" ; foreach my $array_i ( @array ) { $array_i *= 10 ;} print "@array\n" ;