sub serialisiere_hash {
    my ($hash, $encoding) = @_;
    
    my $json = JSON->new;
    if ($encoding eq 'latin1')
        ...
    elsif ...
}