use strict;
use warnings;

my $prompt = q{Add input (CTRL-D to finish) : };
my @input = ();
print $prompt;

while( 1 )
{
    last if eof STDIN;
    push @input, scalar <STDIN>;
    print $prompt;
}
print qq{\n};

chomp @input;
print
   qq{Your input:\n},
   do { local $" = qq{\n  -->}; qq{  -->@input}; },
   qq{\n};