foreach my $record (@$row1)
    {
    
        $report.= "$row1->[0]\n"; 
        
    }