for (my $nr = 0; $nr < $filearrnr; $nr++) {
    splice (@filearr, $nr, 1) if ($filearr[$nr] =~ /^#/)
}