my $fh=shift;
my (%locations, @keywords)=@_;