my @some = grep { !/^\s*$/ } (my @most = map { s/#.*$//; $_ } <FILE>);