#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use JSON;
use utf8;

my %parameter = (
	json_charset	=> 'latin1',
);
my $jsoncodierung = 'latin1';
my %hash = (
	test	=> 'öäüßÖÄÜ@€',
);
print JSON->new->$jsoncodierung->encode(\%hash);			# funktioniert
print JSON->new->$parameter{json_charset}->encode(\%hash);	# syntax error at test.pl line 16, near "$parameter{json_charset"
# wie schreibt man das richtig?