my @array = ; map s/\#.*$//, @array; #### my @array = ; s/\#.*$// foreach @array;