Select Code to Download

my %data;
# By record:
...
$data{'Drive C'}{'Size OID'} = '1.2.3.4.6.1';
$data{'Drive C'}{'Max Size'} = 200000;
$data{'Drive C'}{'Alocation Units'} = 4096;

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

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

$data[1] = {
   'Used Space OID' => '1.2.3.4.5.1',
...
}

$data[1]{'Used Space OID'} = '1.2.3.4.5.1';