foreach my $k (keys %columns) {
  $columns{$k} = [ map { $columns{$k}->[$_] } @si ]
}