my $dumpedValues = $dumper->Dump();
...
eval $dumpedValues;

##</code><code>##

$name="MyName";$location="MyLoc";$mapRef="MyRef";$type="MyType";$description="MyDesc";

##</code><code>##

my ( $name, $location, $mapref, $type, $description ) = @$fields;

##</code><code>##

$fields = [ qw{name location mapref type description} ];  

##</code><code>##

### Evaluate perl record string to set $fields array reference
my $fields;
eval $_;
die if $@;