sub ProcessEntry
{
my $heading = shift;
my @lines = @_;

print "Heading is:       $heading\n";
print "middle lines are:\n";
print "                  $lines[$_]\n" for (0..(@lines-2));
print "Last line is:     $lines[-1]\n\n";
}