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