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