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