Select Code to Download

push @structure , [];
for (my $i=0;$i<= $#ex; $i++) {
 push @{ @structure->[$j]}, $ex[$i]; 
}

foreach my $lev1 (@structure) {
  my $cnt = scalar(@{$lev1};
...
    }
   }
}