for my $row (@$data ){