If you are trying to get (z .. a) to print out as expected, descending, try print "$_\n" for reverse (a .. z);