sub lesen_var_referenz
{ my ($newsock, $variablenname) = @_;
  $newsock->send($daten{$variablenname});
}

my $var_ref = lesen_var_referenz('SYS_verz_meldung_max_differenz_rrm');
print $var_ref->{format};   # Zeile 171