#!/usr/bin/perl -w
use strict;

my @lines = <STDIN>;
my $line = <STDIN>;

print @lines;
print "----\n";
print $line;