Still getting warning for "Use of uninitialized value in join or string " (Please Help)..

[jason corbett]

 
I would like to know why this warning is coming back:
 
Use of uninitialized value in join or string at  line 65.
    
 
 
#!/usr/bin/perl -w
use strict; 
use DBI; 
 
$ENV{"ORACLE_HOME"}="/orav101/oracle/8.0.6"; 
 
[snipet]  


      
  my @record=( );
 
 while( @record= $sth->fetchrow_array( ))
      
        {      

 my $recordlist = ' ';
 $recordlist=join(",",@record); #This statement is causing the problem
 
    
        
  }    exit;
     
$dbh->disconnect;