Hvordan får man det her til at virke?

#! /usr/bin/perl

use strict;
use warnings;

my @lines;
my $line;
while ($line = <STDIN>) {
    push @lines,$line;
}
#STDIN->clearerr;
#seek(STDIN, 0, 1);

my $input;
foreach $line (@lines) {
    print "$line";
    $input = <STDIN>;
    print "You said $input\n";
}