while ( my @row = $DataOut->fetchrow_array ) { my $fname = $row[0]; # ... }