open FILE, '<', $file or die "Failed to open $file: $!";

##</code><code>##

($i)= grep { m/^#/ } $_;

##</code><code>##

! m/^#/ and push @new, $_ for @array;

##</code><code>##

print FILE " \n\n $_ \n\n " for @new;