foreach my $record (@$row1)
    {
        
        $data_file.= $record->{'ROW_DATA'} . "\n";
        
    }