while (my $file = next_file()) {
    print "$file\n";
    my $next = <*>;
    last if ! defined $next;
    print "$next\n";
}
sub next_file { <*> }