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