use strict;
use warnings;

my @array; my $i; my @new; my $nfile;
my $file=<>;
open FILE, "<$file";
while(<FILE>){
	push @array, $_;}
close FILE;
for(@array){
	($i)= grep { m/^#/ } $_;
	push @new, $i;
}
$nfile=<>;
open FILE, ">$nfile";
while(<FILE>){
	for(@new){
		print FILE " \n\n $_ \n\n ";
	}
}