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