foreach my $heading(@headings) { 
    print $heading;
    foreach my $name (@names) { 
        print $name;
    }
}