use strict;
use warnings;
use feature qw/say/;

my @input;

while (<>) {
    chomp;
    last unless $_;
    say "Your entry was: $_";
    push @input, $_;
}