foreach(@$data)
   {print @$_[0];}