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