foreach $heading (@headings)
{
 print $heading;
  for ($count == 0;$count < 10;$count++)
  {
      $name = shift(@names);
       print $name;
  }
}