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