print join " ",(reverse @list); #### # In real use you'd probably want this in a block local $, = ' '; print (reverse @list);