#!/usr/bin/perl -w
print "Enter a list to have reversed (Ctrl-D or Ctrl-Z to stop) : \n";
@list = <STDIN>;
for($i = $#list; $i >= 0; $i--)
{
   print $list[$i];
}