print $_, splice @names => 0, 10 for @headings;