Cycling directions in Perl