my $var_ref = lesen_var_referenz('SYS_verz_meldung_max_differenz_rrm'); print Dumper($var_ref); my $bar; print Data::Dumper->Dump([$var_ref, $bar], [qw(var_ref *ary)]);