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