for my $j(0..scalar(@name)-1) {