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

##</code><code>##

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