$disk{$3}{'DiskMajor'}          = $1;
$disk{$3}{'DiskMinor'}          = $2;
$disk{$3}{'DiskReadRequests'}   = $4;
$disk{$3}{'DiskReadBytes'}      = $6 * $block_size;
$disk{$3}{'DiskWriteRequests'}  = $8;
...

# besso so

for my $alias ($disk{$3}) {
  $alias->{DiskMajor}          = $1;
  $alias->{DiskMinor}          = $2;
  $alias->{DiskReadRequests}   = $4;
  $alias->{DiskReadBytes}      = $6 * $block_size;
  $alias->{DiskWriteRequests}  = $8;
  ...
}