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