print "Ctrl z to stop\n";
print "Enter list:\n";
@list = <STDIN>;
foreach $string (@list)
{
	chomp($string);
}
print "\n";
for( $i=@list-1; $i>-1; $i-- )
{
	print $list[$i];
	print "\n";
}