my @file = <FILE>;
for( my $i=0; $i<$MAXLINES; $i++ ) {
	print pop @file;
}