Help for this page
for my $i (1..$ncols) { $disk_data{$dev{$colnames[$i]}=$cols[$i] +;}
for my $i (1..$ncols) { $disk_data{$dev{$colnames[$i]}=$cols[$i] +$i;}