Don't do all that work, and then throw it away -- put the next if /^#/; first:

while (<$f>){
  next if /^#/;
  chomp;
  s/^\s+//;
  s/\s+$//;
  next unless length;
  push @lines, $_;
}
[download]