use strict; my @list = qw (first second third fourth fifth sixth seventh eigth ninth tenth); print (reverse (@list));