> @ordered = ((1..12)[$m..11],(1..$m)); I do realize that this is a bit redundant, as the slice isn't necessary:
@ordered = (($m..12),(1..$m-1)); But included the slice because I think anything shorter would have to use some slicing goodness I haven't thought of. Can you do it with a single list? - Dan