Select Code to Download

my $number=70   # I am just using 70 as an example
my $element=[
...
    [],
];
$array[$number]=$element;

sub asubroutine   {
      $my number=shift ;   # $number takes the value of 20
...
           # Do something
     }
}

if (@{$x->[3]}>0)    {

sub asubroutine   {
      $my number=shift ;   # $number takes the value of 20
...
            }
       }
}

$array[$number] = undef,

delete $array[$number];

splice (@array,$number,1); #wipes out that element completely

splice(@tables,$number,0,undef); #inserts a new undefined value in the
+ same element number