a:
print ' ' x 2 . "$key" . ' ' x (30-length($key)) . "$value\n";

b:
pen FH, '<', $file or ...

c:
 $alias->{DiskMajor}          = $1;
 $alias->{DiskMinor}          = $2;
 $alias->{DiskReadRequests}   = $4;
 $alias->{DiskReadBytes}      = $6 * $block_size;
 $alias->{DiskWriteRequests}  = $8;

d:
(split /\s+/, <PRC>)[0..6,9..18,21..22,35..36,38];