my @keys = sort keys %data;
for my $i ( 0 .. $size-1 ) {
    my @ith_data = map { $data{$_}[$i] || "" } @keys;
    chomp @ith_data; 
    print "@ith_data\n";
}