找出动词前面的并以动词命名

源文件：

一项项地去 71
一项项地进行 39
一坨坨地向上 32
一届届地办 24
一沓沓地做 23
一秒秒地过 21
一项项地排列 17
一项项地列出 13
一岁岁地变 12

open(a,"1.txt");

while($m=<a>){
	chomp($m);	
	if($m=~/(.+)地([^\s\d]+)\s+\d+/){
		if(defined $hash{$2}){
			push(@{$hash{$2}},$1);
		}else{
			@{$hash{$2}}=();
			push(@{$hash{$2}},$1);
		}
	}
}

close(a);
mkdir "./1qqdv";

foreach $e1(sort keys %hash){
	@arr=@{$hash{$e1}};
	foreach $e2(@arr){
		print c "$e2";
	}
	print c"\n";
		
}