my $fh=$_[0];
    my $h=$_[1];
    shift @_;
    shift @_;
    foreach my $key (@_)