I think Doug had a residual mirror flip - here's two ways to get what you're after:
Version 1: perldl> $a = sequence(3,3) perldl> p $a [ [0 1 2] [3 4 5] [6 7 8] ] perldl> p $a->transpose->rotate(-1)->transpose [ [3 4 5] [6 7 8] [0 1 2] ] Version 2: perldl> $b = $a->transpose perldl> p $b [ [0 3 6] [1 4 7] [2 5 8] ] perldl> $b .= $b->rotate(-1) perldl> p $a [ [3 4 5] [6 7 8] [0 1 2] ] Remember that you need to use '.=' instead of '=' Okay, now that should solve it! Sorry for the confusion! Matt _______________________________________________ Perldl mailing list [email protected] http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
