含虚词的词并以虚词为文件名命名

open(a,"xuci1.txt");

while($l1=<a>){
	chomp($l1);
	@arr=("$l1");
	$w1=$arr[0];
	$hash1{$w1}=1;
}

open(b,"1.txt");
while($l2=<b>){
	chomp($l2);
	@arr=split(" ",$l2);
	$num=$arr[1];
	$w2=$arr[0];
	$hash2{$w2}=$num;
}

$str=">".$w1.".txt";
open(out,"$str");
foreach $e1(keys %hash2){
	if($e1=~/.*$w1.*/){	
		print out "$e1 $hash2{$e1}\n";
	}
	
}
close(out);
close(a);
close(b);