Select Code to Download

undef @data;

for (my $i=0;$i<@data;$i++)
{
   undef @{$data[$i]);
}

for (my $i=0;$i<@data;$i++)
{
   $data[$i] = ();
}