use strict;
my ($prog,$desc,$pages,$date,$file);

my @line1 = (
   qq|prog desc pages data file\n|,
   qq|foo blah 5 bar foo.txt\n|,
   qq|bar blah 5 baz bar.txt\n|,
   qq|baz blah 5 qux baz.txt\n|,
);

my @line2 = (
   qq|prog desc pages data file\n|,
   qq|foo blah 5 bar foo.txt\n|,
);

$~ = 'INDEXFILE';

write_2_file(@line1);
write_2_file(@line2);

sub write_2_file {
   $= = 2 + @_;
   for (@_) {
      chomp;
      ($prog,$desc,$pages,$date,$file) = split;
      write; # to STDOUT for this example
   }
}

format INDEXFILE_TOP =
Program Description       Pages Date Filename
------------------------------------------------
.
 
format INDEXFILE =
@<<<<< @<<<<<<<<<<<<<<<<<< @<<<<< @<<<<< @<<<<<<<<<<<
$prog, $desc, $pages, $date, $file
.