@list=("a","b","c");
foreach(@list){
   print $_,"\n";
}