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