use strict;
use warnings;

our @linesEntered = ();

our $prompt = "Enter text (Ctrl-D to quit): ";
our $dePrompt = "\r" . " " x (length($prompt) + 2) .
   "\r";

while(1)
{
    print $prompt;
    last if eof STDIN;
    chomp($_ = <STDIN>);
    push @linesEntered, $_;
}
print $dePrompt;

foreach my $line (@linesEntered)
{
    # Do something with the line.
    ...
}