#distance_nhk.pl NHK

open(FILE,"fileout_pre2_remake")||die "can't open1:$!\n";
%hash_nhk=();
while(<FILE>){
    ($name,$num)=split(/\s+/,$_,2);

    ($name1,$name2)=split(/_/,$name,2);
    #$name2=$name2 . '.bz2';
    #$name2 =~ name2/.bz2//g; 
    chop($name2);chop($name2);chop($name2);chop($name2);
    if($name1 eq 'nhk'){
	$hash_nhk{$name2}=$num;
	#print"$name2 $hash_nhk{$name2}";
    }
}
close(FILE);
print"\n";
@keys = sort {
    $hash_nhk{$a} cmp $hash_nhk{$b}
}  keys %hash_nhk;

foreach $a (@keys){
    print"$a,$hash_nhk{$a}";
}
