my @array = ; my @newarray = map { s/\#.*$//; $_ } @array; #### my @array = ; map s/\#.*$//, @array;