Is this what you want?

my %machine = (
   disk_groups  => \@disk_groups,
   file_systems => \@file_systems,
   hard_disks   => \@hard_disks,
   ...
);
[download]