my @tmp;
for (my $j=0; $j<=$#tmp; $j++) {