print "elements in \@data: ", scalar( @data ), $/;

foreach my $name ( @data ) {
  print "<$name>";
}