Is there a shorthand way to get a "column" slice of a 2D array?

Not really, but map maybe makes it a little clearer:

@a = ([2,4],[4,5],[8,6],[10,7]);;
print map $_->[1], @a;;
4 5 6 7
[download]