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