#!/usr/bin/perl
print"enter some lines,then press Ctrl-z:/n";
@lines=<STDIN>;
@reverse_lines=reverse(@lines);
print"the lines is:",@reverse_lines;
print"enter some lines,then press Ctrl-z:/n";
@lines=<STDIN>;
@reverse_lines=reverse(@lines);
print"the lines is:",@reverse_lines;