print "from 'a' to 'z':\n"; do { local $, = $"; print a..z };