http://www.perlmonks.org?node_id=468

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