#settings
my $savefilename = "all_list.paj";


#========================================

my @filelist;

#buffering of stdio turn off
$| = 1;

open LIST, "merge.txt";
	while($line = <LIST>) {
		chomp $line;
		push @filelist, $line;
	}
close LIST;

print "Working";

open PAJEK, ">$savefilename";
	foreach $file(@filelist) {
		print PAJEK "*Network $file\n";
		open FILE, "$file";
			@all = <FILE>;
			print PAJEK @all;
		close FILE;
		
		print ".";
	}
close PAJEK;

print "\noutput to : $savefilename\n";