splice is great. Here is how you can remove a whole column from a two-dimensional array:

use strict;
use Data::Dumper;

my @table = (
   [qw(a b c)],
   [qw(d e f)],
   [qw(g h i)],
);

my @col = map { splice @$_,1,1 } @table;

print Dumper \@col;
[download]

The end result is the middle column of @table is removed and assigned to @col.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)