1: @list=("a","b","c");
   2: reverse @list;
   3: foreach(@list){
   4:    print $_,"\n";
   5: }