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