my $fields;
    eval $_;
    die if $@;

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