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