Select Code to Download

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

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