my $h = $data{'Drive C'};
foreach(sort keys %$h) {
    print "$_ = '$h->{$_}'\n";
}