print shift @data;
foreach (@data)
{
  print "\t";
  print "$_";
}