>(set 'a (list 1 2 3))
Both return:
(1 2 3) #Right!
>(cdr a)
perl-lisp returns:
3     #Wrong!
Lisp returns:
(2 3) #Right!

##</code><code>##

(defun transpose (x) (apply 'mapcar (cons 'list x))

Which on this input:
(transpose '((1 2 3) (4 5 6) (7 8 9) (10 11 12)))
Should product this output:
((1 4 7 10) (2 5 8 11) (3 6 9 12))