Select Code to Download

for my $i (0..$#{$data}) {
    foreach ( keys %{$data->[$i]} ) {
        $columns->{$_}->[$i] = $data->[$i]->{$_} ;
    } ;
}

$columns->{$_}->[$i] = $data->[$i]->{$_} ;
hash------^-------------------------^
array-----------^-------------^