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