next if ($filearr[$nr] =~ /^#/);