my $recref = $dbh->
    selectall_hashref("SELECT * FROM DSA_RECORD 
       WHERE file_name = '$file_name'", 'RECORD_NAME');
die unless $recref;

##</code><code>##

.-> HASH(0x110916be8)
   'DATA' => HASH(0x110916a98)
      'FIELD_DELIMITER' => '<-->'
      'FILE_NAME' => 'SCRAMBLETEST2.CSV'
      'RECORD_NAME' => 'DATA'
      'RECORD_SELECTOR' => '^1'
      'SECTION_NAME' => undef

##</code><code>##

$recname='DATA';
$fieldsep = $recref->{$recname}->{'FIELD_DELIMITER'};

##</code><code>##

Use of uninitialized value in print .....