my $row2=@$data2[$i];