use strict;
use warnings;
print "Enter five numbers (hit ctrl-d to terminate final input):\n";
my @array;
while( <> ){
    last if $. > 4;
    chomp;
    push @array, $_;
}
print "$_\n" foreach @array;