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