@a = ( [1..3],['a'..'c'],['x'..'z']);;

@a = map{ [ map{ shift @$_  } @a ] } 1 .. @{ $a[0] };;

print pp @a;;
([1, "a", "x"], [2, "b", "y"], [3, "c", "z"])