#!/usr/bin/perl -w
use strict;
use IO::File;

#interleave files, first argument is line count, rest are files.

my $lc = shift;
my @fhs;

foreach (@ARGV) {
  my $fh = new IO::File;
  open ($fh, "<$_");
  push @fhs, $fh;
}

while (--$lc) {
  foreach (@fhs) {
    print scalar(<$_>);
  }
}