sub EvalDump {
  my $dump = shift;
  my $VAR1;
  eval $dump;
  die $@ if $@;
  return $VAR1;
} # EvalDump
my $variable = &EvalDump(.... dump ...);