#!/usr/bin/perl
use warnings;
print "Enter lines of text, then press ctrl-z\n";
@array = reverse(<STDIN>);
print @array;