#!/usr/bin/perl
use strict;

my @userinput = <STDIN>;
foreach (@userinput) { print; }

my @userinput = <STDIN>;
foreach (@userinput) { print; }