This eliminates the temp %foo so it should reduce the memory overhead. It uses an array slice:

for my $k (keys %columns) {
    @{$columns{$k}} = @{$columns{$k}}[@si];
}
[download]

--
John.