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