for my $k (@sorted_keys) {
    $hash{$type}->{$k}->{data} = shift @mydata;
}