#!/usr/bin/perl
use warnings;
use strict;

my $recref = { DATA =>
               {
                FIELD_DELIMITER => '<-->',
                FILE_NAME       => 'SCRAMBLETEST2.CSV',
                RECORD_NAME     => 'DATA',
                RECORD_SELECTOR => '^1',
                SECTION_NAME    => undef,
               }};
my $recname = 'DATA';
print $recref->{$recname}{FIELD_DELIMITER};