my $fh=shift; my $h=shift; foreach my $key (@_)