undef @data;

##</code><code>##

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

##</code><code>##

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